Впаскале. выведите на печать сумму n членов прогрессии с заданным знаменателем прогрессии q и начальным значением a .

202

315

Посмотреть ответы 2

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

Dzean777

Информатика

4,4(46 оценок)

Program massiv; var a: array [1..100] of integer; n,i,f,d,s: integer; begin writeln('введите первый член прогрессии: '); readln(f); writeln('введите знаменатель прогрессии: '); readln(d); writeln('введите число членов прогрессии: '); readln(n); a[1]: =f; s: =a[1]; write(a[1],' '); for i: =2 to n do begin a[i]: =a[i-1]*d; write(a[i],' '); end; writeln; writeln(s); end.