Напечать все чётные трёхзначные числа. В паскале!!
Напечать все чётные трёхзначные числа. В паскале!!
Гость
Ответ(ы) на вопрос:
Гостьfor i:=1 to 999 do if i mod 2 =0 then writeln(i);
ГостьProgram qr; uses crt; var x,i:integer; begin for i:=1 to 999 do if not odd(i) then writeln(i); readln; end.
Не нашли ответ?
Похожие вопросы