Регистрация
Kirito505
14.04.2020 23:26
Информатика
Есть ответ 👍

с информатикой!!!
Задание 4!!!

152
338
Посмотреть ответы 1

Ответы на вопрос:

99669888Nina
99669888Nina
4,4(77 оценок)
Program sap; var s, d: integer; i, n: byte; a: array[1..255] of integer; begin write('введите первый член арифметической прогрессии:   '); readln(a[1]); write('введите разность арифметической прогрессии: '); readln(d); write('введите количество членов арифметической прогрессии: '); readln(n); for i: = 2 to n do begin    a[i]: = a[1] + (i - 1) * d;   s: = s + a[i] end; writeln('сумма членов арифметической прогрессии: ', s); end.

Популярно: Информатика