Question

Помогите пожалуйста! Надо найти произведение чисел от 1 до 10 в Pascal ABC.

Answer 1

Var p,i:integer;
begin
p:=1;
for i= 1 to 10 do
p:=p*l
writeln(p);
end.

Answer 2

Чтобы найти произведение чисел от 1 до 10 в Pascal ABC, вы можете использовать цикл и переменную для хранения произведения. Вот пример кода:

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

В этом коде мы объявляем переменные `i` и `proizv`. Переменная `proizv` инициализируется значением 1, а затем в цикле `for` умножается на каждое число от 1 до 10. В конце выводится результат произведения чисел от 1 до 10.

Примечание: Этот код написан на языке Pascal ABC. Если вы используете другую версию Pascal, возможно, вам потребуется внести некоторые изменения в синтаксис.

Надеюсь, это поможет! Если у вас возникнут еще вопросы, не стесняйтесь задавать.