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

[@apenasumcanal8536]

E se eu tiver q somar?

[@brunobaldezpdz3883]

E se eu quiser fazer com ímpares ?

Também dar pra fazer.

[@maiconalves4855]

@ e faz desse mesmo jeito?

[@faustinomangundo8897]

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

[@CassioMatarazzo]

faça quase igual com diferença no " for i: 100 to 1 do"

[@canaldoluanbertollo]

@@CassioMatarazzo "for i: 100 DOWNTO 1 do"

[@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.