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

Question

Генюха

9 мая, 20:05

+4

Ответы (1)

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

Евдокимка · Answer 1

var i, n, x:integer;

a:array [1 ... 100] of integer;

begin

write ('Введите N: ') ;

readln (n) ;

for i:=0 to n do

x:=x+i;

write (x) ;

end.