Составьте алгоритм вычисления суммы всех натуральных чисел не привышающих заданного натурального числа N. проверьте алгоритм трассировкой. напишите программу в паскале.
Составьте алгоритм вычисления суммы всех натуральных чисел не привышающих заданного натурального числа N. проверьте алгоритм трассировкой. напишите программу в паскале.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы