Question

Найти произведение чисел от 1до 10,в паскале

Answer 1

var i,s:integer;

Begin

s:=1;

for i:=2 to 10 do s:=s*i;

writeln(s);

end.

Answer 2

Вот пример программы на языке Pascal, которая находит произведение чисел от 1 до 10:

program CalculateProduct;

var
  i, product: integer;

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

Эта программа использует цикл `for` для перемножения чисел от 1 до 10 и выводит результат на экран. В данном случае произведение чисел от 1 до 10 равно 3628800.