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