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

В паскале!

Question

Витюся

6 июля, 06:43

+2

Ответы (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) ;

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