Составьте программу вычисления произведения S=12+34+56 + ... + 101102 (в паскале)

Question

Информатика

Иаким

10 февраля, 13:31

Составьте программу вычисления произведения S=12+34+56 + ... + 101102 (в паскале)

+2

Ответы (1)

Знаете ответ на вопрос?

Оляша · Answer 1

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.

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

Составьте программу вычисления произведения S=12+34+56 + ... + 101102 (в паскале)