(письменно) программа паскаль: вывести на экран все нечетные числа от 1до n, через for i.

sunlight2 sunlight2    2   25.06.2019 04:00    0

Ответы
Паха555KXZ Паха555KXZ  20.07.2020 13:21
Var n, i: integer;
begin
writeln('Введите число: ');
read(n);
if n>0 then
begin
for i:=1 to n do
if i mod 2 <> 0 then write(i, ' ');
end;
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика