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

В паскале!

Question

Гея

9 февраля, 21:40

+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

Степанидка 10 февраля, 00:09

0

for i:=1 to 999 do

if i mod 2 = 0 then

writeln (i);

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