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

Question

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

Answer 1

    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