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

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

Question

Северина

3 февраля, 23:56

+4

Ответы (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 включительно.