O programa em FORTRAN abaixo faz a leitura de um número digitado pelo usuário e verifica se esse
número é primo. Os números à frente das diretivas são apenas para referência como identificador da linha de
programa.
1 - program numeroprimo 2 - integer::i,x,cont 3 - write(*,*) “Entre o numero para testar se e primo ou nao” 4 - read(*,*)x 5 - cont=0 6 - do i=1,x 7 - if(mod(x,i)/=0) then 8 - cont=cont+1 9 - end if 10 - end do 11 - if (cont<=2) then write(*,*)”O numero e primo” else write(*,*) “O numero nao e primo " 12 - end if 13 - end program
Identifique a resposta correta:
1 - program numeroprimo 2 - integer::i,x,cont 3 - write(*,*) “Entre o numero para testar se e primo ou nao” 4 - read(*,*)x 5 - cont=0 6 - do i=1,x 7 - if(mod(x,i)/=0) then 8 - cont=cont+1 9 - end if 10 - end do 11 - if (cont<=2) then write(*,*)”O numero e primo” else write(*,*) “O numero nao e primo " 12 - end if 13 - end program
Identifique a resposta correta:
