Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Помогите пожалуйста!! ( ПИСЬМЕННО) Программа Паскаль: вывести на экран все нечетные числа от 1до n, через for I.

Ответ оставил Гость

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.