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

Question

Гонеста

26 февраля, 08:48

+4

Ответы (1)

Знаете ответ?

Гуша · Answer 1

var

n, sum : integer;

begin

write ('a? ') ;

readln (a) ;

for var i : = 1 to n-1 do sum : = sum + i;

writeln (' сумма=', sum) ;

end.