Выручите, пожалуйста! Составьте алгоритм вычисления суммы всех натуральных чисел, не превышающий заданного натурального числа N. Проверьте алгоритм трассировкой. Напишите программу на Паскале.
Выручите, пожалуйста! Составьте алгоритм вычисления суммы всех натуральных чисел, не превышающий заданного натурального числа 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.
Выбирайте лучший ;)
Не нашли ответ?
Похожие вопросы