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

rfrfirflehf rfrfirflehf    3   26.05.2019 15:10    6

Ответы
ева514 ева514  23.06.2020 02:19
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика