Даны два целых числа A и B (A < B). Найти
произведение всех целых чисел от A до B включительно.
произведение всех целых чисел от A до B включительно.
More Questions From This User See All
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
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.