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

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

Question

Самсон

17 августа, 10:39

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