Написать программу нахождения суммы чисел от 1 до n.Для pascal abc
Написать программу нахождения суммы чисел от 1 до n.Для pascal abc
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
program SumOfNumbers;
var
n, sum, i: integer;
begin
write('Введите число n: ');
readln(n);
sum := 0;
for i := 1 to n do
begin
sum := sum + i;
end;
write('Сумма чисел от 1 до ', n, ' равна ', sum);
end.