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

Question

Владя

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

+1

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