Цикл while

[илья-т]

Составьте алгоритм вычисления суммы всех натуральных чисел, не превышающих заданного натурального числа N. нужно использовать цикл while

[Serge_Bliznykov]

и что не получается? не знаете, как цикл while записать?

[илья-т]

думаю так, но не уверен

program  summa;
var i, N, S: integer;
begin
   readlin(N);
   s:=0;
   i:=1;
while S<=N do
begin
   S:=S+i;
   i:=i+1
end;
writeln(S)
end.

_____
Код программы нужно выделять (форматировать) тегами [CODE][/CODE] (читать FAQ)
Модератор

[Serge_Bliznykov]

Очень близко.
только условие цикла исправьте.
когда Вам нужно цикл прекращать, когда сумма дойдёт до N или когда натуральные числа, которые Вы перебираете/наращиваете в цикле, дойдут до величины N?

[илья-т]

поставить S<N , так правильно?

[Вадим Мошев]

Сообщение от илья-т

readlin(N);

Кстати, здесь опечатка

Сообщение от илья-т

поставить S<N , так правильно?

А вы проверьте сами. Поставьте, например, N = 10.
У вас ответ должен быть равен 55. Если он отличается от 55, значит неправильно.

[digitalis]

Сообщение от илья-т

поставить S<N , так правильно?

Открыты при форуме курсы гадалок...

while i <=N do

Получи и не мучайся.