Выручите, ! составьте алгоритм вычисления суммы всех натуральных чисел, не превышающий заданного натурального числа n. проверьте алгоритм трассировкой. напишите программу на паскале.
Var N, i, sum: longint; begin writeln('Введите число'); readln(N); sum:=0; for i:=1 to N-1 do sum:= sum+i; writeln(sum); readln end. Выбирайте лучший ;)
begin
writeln('Введите число');
readln(N);
sum:=0;
for i:=1 to N-1 do
sum:= sum+i;
writeln(sum);
readln
end.
Выбирайте лучший ;)