Criar um algoritmo que imprima todos os números pares no intervalo de 1 a 100.

Pascal zim
2. Criar um algoritmo que imprima todos os números pares no intervalo de 1 a 100.

[faustinomangundo]

elabore um algoritmo que imprima todos os numeros de 100 até 1 no visual g mano gostei da esplicacão

[HariyukiSnow]

var
cont: integer;

begin
for cont:=0 to 1001 do
if (cont mod 2=0) then
begin
writeln('Numeros Pares:', cont ) ;


end;
readkey;

End.