Question

На языке Pascal ABC реализовать программу, выводящую первых К нечётных чисел 1,3,5,7...К. (К задаётся с клавиатуры).

Answer 1

Var
   k:integer;
Begin
Write('k = ');ReadLn(k);
For k:= 1 to k do
    Write(k*2-1,' ')
End.