
Сергей
6 год назад
Составьте программу вычисления произведения S = 1*2+3*4+5*6+...+101*102 (в паскале)
ОТВЕТЫ

Христофор
Jun 29, 2019
Var i,a1,a2:integer;
sum:longint;
begin
a1:=1;
a2:=2;
sum:=0;
while (a1lt;102) or (a2lt;102) do
begin
sum:=sum+(a1*a2);
a1:=a2+1;
a2:=a1+1;
end;
writeln(sum);
end.
sum:longint;
begin
a1:=1;
a2:=2;
sum:=0;
while (a1lt;102) or (a2lt;102) do
begin
sum:=sum+(a1*a2);
a1:=a2+1;
a2:=a1+1;
end;
writeln(sum);
end.
243
Смежные вопросы: