PascalABC Ученик писал программу для сравнения значений суммы некоторой последовательности, вычисленных напрямую и по формуле. У него получилась вот такая программа:
var a,x,n,i,s1,b:integer;
s2:real;
begin
readln(n);
a:=4;
x:=3;
s1:=0;
for i:=1 to n do begin
s1:=s1+a;
a:=a+x;
end;
s2:=(2*b+(n-1)*x)*0.5*n;
writeln(s1);
writeln(s2);
end.
К сожалению, его программа работает неверно из-за того, что переменной b не присвоено начальное значение. Какое начальное значение необходимо присвоить переменной b?
var a,x,n,i,s1,b:integer;
s2:real;
begin
readln(n);
a:=4;
x:=3;
s1:=0;
for i:=1 to n do begin
s1:=s1+a;
a:=a+x;
end;
s2:=(2*b+(n-1)*x)*0.5*n;
writeln(s1);
writeln(s2);
end.
К сожалению, его программа работает неверно из-за того, что переменной b не присвоено начальное значение. Какое начальное значение необходимо присвоить переменной b?