Составьте программу вычисления произведения s=1*2+3*4+5*6++101*102 (в паскале)

wwwnikitafakh wwwnikitafakh    2   20.08.2019 10:30    1

Ответы
dhgti dhgti  05.10.2020 07:06
Var i,a1,a2:integer;
sum:longint;
begin
a1:=1;
a2:=2;
sum:=0;
while (a1<102) or (a2<102) do
begin
sum:=sum+(a1*a2);
a1:=a2+1;
a2:=a1+1;
end;
writeln(sum);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика