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

Question

Виталий

3 апреля, 21:18

+2

Ответы (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.