ТутРешу.Ру

Составьте алгоритм вычисления суммы всех натуральных чисел…

Задание:

Составьте алгоритм вычисления суммы всех натуральных чисел, не превышающих данного заданного числа N. Напишите программу на Паскале. P.S. Тема урока-программирование циклов

Решение:

var sum,n,i: integer; beginreadln (n); sum: =0; for i: =1 to n do sum: =sum+i; writeln (sum); readln; end.




Знаете другой ответ?

Отправить свой ответ