Question

Решить задачУ "Составьте программу, которая вычисляет произведение натуральных чисел от 5 до 10 и выводит на экран результат" в PascalABC

Answer 1

var a, i: integer;

begin
  a := 1;
  for i := 5 to 10 do
    a := a * i;
  writeln (a);
end.

Answer 2

Вот решение задачи на языке PascalABC:

sqlCopy code
program multiply;
var
  i, result: integer;
begin
  result := 1;
  for i := 5 to 10 do
  begin
    result := result * i;
  end;
  writeln('The product of numbers from 5 to 10 is: ', result);
end.

В этой программе мы используем цикл for, чтобы перемножить числа от 5 до 10 и сохранить результат в переменной result. Затем мы выводим результат на экран с помощью процедуры writeln().