Информатика, опубликовано 2018-08-22 23:41:52 by Гость

Найдите сумму всех натуральных чисел на промежутке от 1 до n.Число n вводится на клавиатуре.Составьте на Паскале с циклом WHILE

Ответ оставил Гость

Var
n,i,sum:integer;
begin
readln(n);
sum:=0;
i:=0;
while i  begin
  i:=i+1;
  sum:=sum+i;
end;
writeln(sum);
end.

Не нашли ответа?

Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.