Question

На языке Pascal ABC реализовать программу, выводящую первых K нечётных чисел 1,3,5,7...K( K задаётся с клавиатуры.
НУЖНО ДО ЗАВТРА
САМОЕ ГЛАВНОЕ:
СДЕЛАТЬ ЭТУ ПРОГРАММУ С ПОМОЩЬЮ !WRITE!, И СДЕЛАТЬ ТАКЖЕ ЭТУ ПРОГРАММУ С ПОМОЩЬЮ !REPEAT!.
Вы моя последняя надежда :3

Answer 1

Var
   K,i:integer;
Begin
Write('K = ');
ReadLn(K);
i:=1;
Repeat
Write(2*i-1,' ');
i:=i+1;
Until i>K;
End.



Хотя гораздо проще было бы сделать так:

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