Question

Найти произведение чисел от А до Б (Pascal*)​

Answer 1

Ответ:

uses crt;

var a,b,i,p: integer;

begin

clrscr;

p:=1;

write('A,B: ');

readln(a,b);

for i:=a to b do

p:=p*i;

writeln('Произведение = ',p);

readln;

end.

Answer 2

Для нахождения произведения чисел от А до Б в Pascal, вы можете использовать цикл и переменную, которая будет хранить текущее произведение. Вот пример кода на Pascal, который решает эту задачу:

program FindProduct;
var
  A, B, Product: Integer;
  i: Integer;
begin
  // Введите значения А и Б
  Write('Введите значение А: ');
  Readln(A);
  Write('Введите значение Б: ');
  Readln(B);

// Инициализируем переменную Product значением 1
  Product := 1;

// Вычисляем произведение чисел от А до Б
  for i := A to B do
  begin
    Product := Product * i;
  end;

// Выводим результат
  Writeln('Произведение чисел от ', A, ' до ', B, ' равно ', Product);
end.

В этом примере мы используем цикл `for` для перебора чисел от А до Б. На каждой итерации мы умножаем текущее значение переменной `Product` на текущее число и сохраняем результат в `Product`. В конце программы выводим результат на экран.

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

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