Вывести на экран программу арифметической прогрессии (паскаль) надо

Margaritka1307 Margaritka1307    2   20.06.2019 11:30    0

Ответы
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика