Составьте программу Паскаль вычисления суммы натуральных чисел не превышающих заданного числа N
Составьте программу Паскаль вычисления суммы натуральных чисел не превышающих заданного числа N
Гость
Ответ(ы) на вопрос:
ГостьVar
a,n,i:integer;
Begin
Write('Введите число ');
Readln(n);
for i:= 1 to n do
a:=a+i;
Write('Сумма всех натуральных чисел до n (включительно) равна ',a);
End.
Не нашли ответ?
Похожие вопросы