Составьте алгоритм вычисления суммы всех натуральных чисел, не превышающих заданного натурального числа N
Составьте алгоритм вычисления суммы всех натуральных чисел, не превышающих заданного натурального числа N. Проверьте алгоритм трассировкой. Напишите программу на Паскале.
алг СУММА
цел F, N, R
нач
ввод N
F:=0
R:=0
пока R <= N повторять
нц
F:=F+R
R:=R+1
кц
вывод F
кон
Program zad_7_nica;
var F, N, R: integer;
begin
write ('Введите N: ');
read (N);
while (R <= N)
do begin
F:=F+R;
R:=R+1;
end;
writeln ('Сумма равна: ', F)
end.