Program p1;
Var a,b,c,s,i:integer;
Begin
Write('Введите первый член прогрессии: ');
Readln(a);
Write('Введите разность чисел прогрессии: ');
Readln(b);
Write('Введите количество чисел прогрессии: ');
Readln(c);
for i:=1 to c do
Begin
s:=s+a;
a:=a+b;
End;
Writeln('Сумма членов прогрессии: ',s);
<span>End.</span>
Фигура становится плоской.
Нет таких доказательств. Как можно моделировать в программе, которая предназначена совсем для другого?
Синие сразу увидят, что на красные все розданы и определят. (:D)