Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.
.