Archive du Département Mathématiques et Informatique

Donnez un question par programme suivante :

Program moy ;

Var N1,N2,N3,moy :real; N,i:integer;

Begin

Readln (N);

For i:= 1to N do

Begin

Readln (N1,N2,N3);

Moy:= (N1+2*N2 +3*N3 )/6;

If moy >=10 then

Writeln ('Admis')

Else

If moy< 8 then

Writeln ('Ajourné')

Else

Writeln ('Repasse' );

End;

End.G7