Найти произведение всех чисел, расположенные между A и B — Pascal(Паскаль)

Даны два целых числа A и B (A < B).

program For8;

var
  A, B: integer;
  temp: integer;
  i: integer;

begin
  temp := 1;
  repeat
    writeln('Введите A и B:');
    readln(A, B);
  until (A < B);
  for i := A to B do
  begin
    temp := temp * i;
  end;
  writeln('Произведение :', temp);

end.

Leave a Comment

10 + = 11