Найти произведение чисел от m до n

Найти произведение чисел от m до n
Гость
Ответ(ы) на вопрос:
Гость
var mn,m,n,i:integer; begin readln(m,n); for i:=m to n do mn:=mn*i; writeln(mn); end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы