Составьте пограмму вычисления суммы 100 первых членов арифметической прогрессии,если а1=5; d=4
Составьте пограмму вычисления суммы 100 первых членов арифметической прогрессии,если а1=5; d=4
Гость
Ответ(ы) на вопрос:
Гостьprogram a_1;
var a1,d,n,S,m:real;
begin
a1:=5;
d:=4;
n:=100;
m:=(2*a1+(n-1)*d)/2;
S:=m*n;
writeln(S);
end.
Не нашли ответ?
Похожие вопросы