Знайти суму перших n членів арифметичної прогресії {an}, якщо відомі а1 і d. паскаль

122

225

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

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

lourln

Информатика

4,7(62 оценок)

Var n,d,a1,a0,i: integer; begin writeln('d='); read(d); writeln('n='); read(n); writeln('a1='); read(a1); a0: =a1; for i: =2 to n do a0: =a0+d; writeln('сумма равна'); writeln(a0); end..

уфагаполмилио

Информатика

4,8(6 оценок)

Var i,s: integer; a: array[1..10]of integer; procedure sum(a: integer; var s: integer); begin if (a mod 2=0) and (a< 0) then s: =s+a end; begin write('массив: '); for i: =1 to 10 do begin a[i]: =random(-10,10); write(a[i],' '); sum(a[i],s) end; writeln; writeln('s=',s) end.