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

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

Задать свой вопрос
1 ответ
Program qq;
var i, n, c:real;

begin
readln(i);
c:=i;
while nlt;gt;100 do 
begin 
n:=n+1; 
write(c, ' '); 
c:=c*i; 
end;
writeln();
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт