Question

Напечать все чётные трёхзначные числа.

В паскале!!

Answer 1

for i:=1 to 999 do

if i mod 2 =0 then

writeln(i);

 

Answer 2

Program qr;

uses crt;

var x,i:integer;

begin

for i:=1 to 999 do

if not odd(i) then writeln(i);

readln;

end.