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

luciatarasova luciatarasova    1   20.05.2019 17:30    0

Ответы
DVD123456789 DVD123456789  14.06.2020 04:22

for i:=1 to 999 do

if i mod 2 =0 then

writeln(i);

 

ПОКАЗАТЬ ОТВЕТЫ
Legodgidai Legodgidai  14.06.2020 04:22

Program qr;

uses crt;

var x,i:integer;

begin

for i:=1 to 999 do

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

readln;

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика