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

В паскале!

Question

Витюся

26 марта, 21:37

+5

Ответы (2)

Знаете ответ на вопрос?

Емельяша · Answer 1

Емельяша 26 марта, 21:51

0

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.

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