В среде программирования FreePascal составить программу для нахождения суммы последовательности чисел произвольного диапазона. Проверить работу программы для чисел от 5 до 12
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
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