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

В паскале!

Question

Ванюта

9 июня, 08:19

+3

Ответы (2)

Знаете ответ?

Панфил · Answer 1

Program qr;

uses crt;

var x, i:integer;

begin

for i:=1 to 999 do

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

readln;

end.

Витоша · Answer 2

for i:=1 to 999 do

if i mod 2 = 0 then

writeln (i) ;

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