ПОМОГИТЕ ПОЖАЛУЙСТА. Составьте алгоритм вычисления суммы натуральных чисел, не превышающих заданного натурального числа N.

1

Ответы и объяснения

Лучший Ответ!
2013-03-19T22:58:41+04:00
Если я всё правильно понял, то вот:

var x,n,s:integer;
begin
readln(n);
for x:=1 to n do
s:=s+x;
writeln(s);
end.