Предмет: Информатика,
автор: bumkuper
РЕШИТЕ СРОЧНО ПРОВЕРЮ НА ПРАВИЛЬНОСТЬ
Приложения:
![](https://files.topotvet.com/i/6aa/6aadf4fd477f703fadedb4bbfafc7a92.jpg)
Ответы
Автор ответа:
1
Ответ:
var
a:array[1..10] of real;
D:real;
i,N:integer;
begin
Write('N:');
Readln(N);
Write('A_1:');
Readln(a[1]);
Write('D:');
Readln(D);
for i:=2 to N do a[i]:=a[1]+(i-1)*D;
for i:=1 to N do writeln(i,' : ',a[i]);
end.
Объяснение:
Приложения:
![](https://files.topotvet.com/i/6a1/6a1577dd0f3a65a13f1f08d8fd72414f.png)
bumkuper:
спасибо огромное
Похожие вопросы
Предмет: Биология,
автор: Аноним
Предмет: Математика,
автор: Miranagnom
Предмет: Русский язык,
автор: Аноним
Предмет: Математика,
автор: Аноним