A tecnologia de hoje está revolucionando a vida de todos, antes as pessoas faziam apenas para que suas vidas continuacem normalmente, sem novas perspectivas nem mesmo novos sonhos.
Com a chegada surpreendente das novas tecnologias, todos passaram a viver a vida com mais facilidades e bem estar.
o avanço da tecnologia ´´e muito constante a cada dia vai lançando cada vez mais coisas como o mp3 foi uma febre todo mundo tinha ou queria ter.
ResponderExcluirmeses depois apareceu o mp4, apartir desse a cada mes vai lançando um "mp" novo
também acho! Verdade vão aumentando.
ResponderExcluiros telefones celulares de antigamente foram saindo de circulação, e novos com tecnologias mais avançadas foram ganhando o mercado.
ResponderExcluirPROGRAM EXEMPLO;
ResponderExcluirVAR VAL,num :integer;
begin
___val:=5;
___num:=8;
___if(5mod2=0)then; esse valor não será igual 0
___begin
___write(5)não será atribuido esse valor pq o resultado é falso
___end;
___else
___begin
___write(8);RESPOSTA IGUAL E 8
end.
program exemplo;
ResponderExcluirvar val, num: integer;
begin
___ val:=5;
___ num:=8;
____if (5>=1 E 5<=8) then
_____begin
_______write (5); (porque a condição é verdadeira)
_____end;
____else
_____begin
_______write (num);
_____end;
end.
var valor1, valor2, par: integer;
ResponderExcluirbegin
read(valor1, valor2)
if
("valor1>valor2") then
write ("valor1")
else
write ("valor2")
begim
if
(valor1 mod 2=0) then
write ("par")
else
write ("impar")
end;
end