Question

Запишите на языке Паскаль программу которая перемножает числа от 1 до 10 и выводит на экран полученный результат

Answer 1

Program n1;
var i,p: integer;
begin
p:=1;
for i:=1 to 10 do p:=p*i;
writeln(p);
end.

Answer 2

Конечно! Вот пример программы на языке Паскаль, которая перемножает числа от 1 до 10 и выводит результат на экран:

program Multiplication;

var
  product, i: integer;

begin
  product := 1;
  
  for i := 1 to 10 do
  begin
    product := product * i;
  end;
  
  writeln('Результат умножения чисел от 1 до 10 равен: ', product);
end.

Эта программа использует переменные `product` для хранения результата умножения и `i` для итерации через числа от 1 до 10 с помощью цикла `for`. Внутри цикла каждое число умножается на текущее значение `product`. По завершении цикла, результат выводится на экран с помощью функции `writeln`.