Question

Написать программу для подсчета суммы чисел из отрезка [5;10] Паскаль цикл for​

Answer 1

var num1, i, num2, sum:integer;

begin

write('Введите начальную координату отрезка: ') ;

readln(num1);

write('Введите конечную координату отрезка: ') ;

readln(num2);

for i:=num1 to num2 do

sum:=sum+i;

write(sum);

end.

Answer 2

Вот пример программы на Pascal для подсчета суммы чисел из отрезка [5;10] с использованием цикла for:

pascalCopy code
program SumCalculation;

var
  sum, i: integer;

begin
  sum := 0;

  // Цикл for для перебора чисел от 5 до 10
  for i := 5 to 10 do
  begin
    sum := sum + i;  // Прибавляем текущее число к сумме
  end;

  // Вывод результата
  writeln('Сумма чисел от 5 до 10: ', sum);

  // Ожидание ввода перед закрытием программы
  readln;
end.

Эта программа объявляет переменные sum и i, инициализирует sum нулем, а затем использует цикл for, чтобы перебрать числа от 5 до 10, прибавляя каждое число к переменной sum. Результат выводится на экран.