Archive of the former Mathematics and Computer Science Depthttps://www.univ-soukahras.dz/en/dept/mi |
0 votes
|
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 |
Asked on 19:32, Saturday 23 Dec 2017 By أميرة زمال |
Answers (1)
Answer (1)
votes
|
|
Answered on 14:03, Tuesday 23 Jul 2024 by |