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

Question

Информатика

Баркиярук

17 сентября, 22:35

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

+5

Ответы (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.