Pascal/Estrutura de repetição: diferenças entre revisões

[edição não verificada][edição não verificada]
. . CONT:=CONT+1;
. . read(NOME,N1,N2,N3);
. . if (N1>=0) and (N2>=0) and (N3>=0) and (N1<=10.00) and (N2<=10.00) and (N3<=10.00) then;
. . . begin
. . . . MEDIA:=(N1+N2+N3)/3;
. . . . writeln(“O'O aluno de nome ',NOME,' tem a média ',MEDIA,' em suas notas.');
. . . end
. . else
. . . writeln(“Não'Não são aceitas notas negativas.');
. end;
end.
{testado no Copilador pascalzim 17/12/2010}
 
== Repeat (repita até) ==
Utilizador anónimo