Вывести на экран в строчку все числа от 1 до 50,при этом четные числа заменить на нули

ul8a ul8a    1   19.05.2019 16:38    0

Ответы
кисюня011088 кисюня011088  12.06.2020 22:13

var i: integer;

begin

 for i:=1 to 50 do begin

   if (i mod 2 = 0) then write(0, ' ')

   else write(i, ' ');

 end;

end.

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