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

произведение всех целых чисел от A до B включительно.

Question

Максимка

23 января, 20:31

+5

Ответы (1)

Знаешь ответ?

Маруша · Answer 1

Uses crt;

var a, b, i:integer;

pr:longint;

begin

readln (a, b);

pr:=1;

for i:=a to b do

pr:=pr*i;

writeln (pr);

end.

Даны два целых числа A и B (A < B). Найтипроизведение всех целых чисел от A до B включительно.