Вывести на экран программу арифметической прогрессии (Паскаль)помогите срочно надо
Вывести на экран программу арифметической прогрессии (Паскаль)помогите срочно надо
Гость
Ответ(ы) на вопрос:
Гостьprogram qq;
var i, n, c:real;
begin
readln(i);
c:=i;
while n<>100 do
begin
n:=n+1;
write(c, ' ');
c:=c*i;
end;
writeln();
end.
Не нашли ответ?
Похожие вопросы