Даны два числа А и В (А меньше В). Найти произведение всех целх чисел от А до В включительно. Fortran
Даны два числа А и В (А<В). Найти произведение всех целх чисел от А до В включительно. Fortran
Гость
Ответ(ы) на вопрос:
Гость program AB
integer a,b,i,p
read (*,*) a,b
p=1
do i=a,b
p=p*i
enddo
write (*,*) p
stop
end
Тестовое решение для ввода 3 8
20160
Не нашли ответ?
Похожие вопросы