Вычислить сложения чисел от 1 до 50 используя различные варианты цикла

Question

Информатика

Гарвесий

10 августа, 20:56

Вычислить сложения чисел от 1 до 50 используя различные варианты цикла

+1

Ответы (1)

Знаете ответ?

Минле · Answer 1

На каком языке программирования надо? Pascal?

Если да, то

var summ, i:integer;

begin

for i:=1 to 50 do

begin

summ+=i;

end;

WriteLn (summ) ;

end.

Либо

var summ, i:integer;

begin

i:=1;

while i<=50 do

begin

summ+=i;

i+=1;

end;

WriteLn (summ) ;

end.