pedrohenriquegonçalvez

algoritmo "semnome" var Nome:caractere nb1m:real nb2m:real nb3m:real nb4m:real ntm:real np1:real np2:real np3:real np4:real ntp:real nc1:real nc2:real nc3:real nc4:real noas:inteiro rpn:inteiro inicio EscrevaL ("--------------------------------------------") EscrevaL ("escola n sei o que") EscrevaL ("--------------------------------------------") Escreva ("Qual é o nome do aluno?: ") Leia (Nome) Escreva ("Nota de matematica primeiro bimestre: ") leia (nb1m) Escreva ("Nota de matematica segundo bimestre: ") leia (nb2m) Escreva ("Nota de matematica terceiro bimestre: ") leia (nb3m) Escreva ("Nota de matematica quarto bimestre: ") Leia (nb4m) ntm <- nb1m + nb2m + nb3m + nb4m se (ntm >= 60) então Escreval (Nome , " passou em matematica.") senao Escreval (Nome , " não passou em matematica, está de NOA ") fimse Escreva ("Nota de portugues primeiro bimestre: ") leia (np1) Escreva ("Nota de portugues segundo bimestre : " ) leia (np2) Escreva ("Nota de portugues terceiro bimestre : " ) leia (np3) Escreva ("Nota de portugues quarto bimestre : ") leia (np4) ntp <- (np1 + np2 + np3 + np3) se (ntp >=60) então Escreva (Nome , " passou em portugues.") senao Escreval (Nome , " não passou em portugues, está de NOA") Escreva ("Nota de ciencias primeiro bimestre : ") leia (nc1) Escreva ("Nota de ciencias segundo bimestre : ") leia (nc2) Escreva ("Nota de ciencias terceiro bimestre : ") leia (nc3) Escreva ("Nota de ciencias quarto bimestre : ") leia (nc4) ntp <- (nc1 + nc2 + nc3 + nc3) se (ntc >=60) então escreva (Nome , " passou em ciencias.") então senao Escreval (Nome , " não passou em ciencias, está de NOA") fimse fimse fimse fimalgoritmo Ele diz que na linha 62= se (ntc >=60) então, está faltando um então mesmo tendo E também na linha 63= escreva (Nome , " passou em ciências.") o que não faz sentido, né? Aqui da pra ver que tem um então na linha mas ele diz que não, já tentei tirar o acento sim Aqui a mesmca coisa