В среде программирования FreePascal составить программу для нахождения суммы последовательности чисел произвольного диапазона. Проверить работу программы для чисел от 5 до 12

1 Июн 2020 в 19:40
85 +1
0
Ответы
1
program SumOfSequence;
var
i, start, finish, sum: integer;
begin
start := 5;
finish := 12;
sum := 0;
for i := start to finish do
begin
sum := sum + i;
end;
writeln('Сумма последовательности чисел от ', start, ' до ', finish, ' равна: ', sum);
end.

Результат выполнения программы:

Сумма последовательности чисел от 5 до 12 равна: 72
18 Апр 2024 в 11:24
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Прямой эфир