Информатика, опубликовано 2018-08-22 19:34:09 by Гость
Даны два целых числа A и B (A < B). Найти произведение всех целых чисел от A до B включительно.
Ответ оставил Гость
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.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.