Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Localisation ND
program msan; Var aeb,pq,m,c,d,u :integer; begin Readln(aeb,PQ,m,c,d,u); If aeb = 37 then Begin Writeln ('votre numéro est à tebessa') End else Begin Writeln (' vote numéro est hors tebessa') End; if (pq = 50) and (m = 0) then Begin Writeln ('msan casorec'); Writeln ('Codification MSAN est: C1RN') End else if (pq = 50) and (m = 9) then Begin Writeln ('msan casorec'); Writeln ('Codification MSAN est: C1RN') End Else if (pq = 50) and (m = 1) and (c <= 3) then Begin Writeln ('msan WILAYA'); Writeln ('Codification MSAN est: WILN') End Else if (pq = 50) and (m = 6) then Begin Writeln ('msan aadl'); Writeln ('Codification MSAN est: ADTN') End Else if (pq = 50) and (m = 5) then Begin Writeln ('msan lots communal'); Writeln ('Codification MSAN est: LCON') End Else if (pq = 50) and (m >= 2 ) and ( m <= 3) then Begin Writeln ('msan skanska'); Writeln ('Codification MSAN est: SKAN') End Else if (pq = 50) and (m = 8) then Begin Writeln ('msan 1er novembre'); Writeln ('Codification MSAN est: NV1N') End Else if (pq = 50) and (m = 4) then Begin Writeln ('msan wiam'); Writeln ('Codification MSAN est: WMAN') End Else if (pq = 51) and (m = 0) and ( c <= 4)then Begin Writeln ('msan 4 mars le marché'); Writeln ('Codification MSAN est: 4MMN') End Else if (pq = 51) and (m = 6) and ( c <= 4)then Begin Writeln ('masn houari boumediene'); Writeln ('Codification MSAN est: HBMN') End Else if (pq = 51) and (m = 6) and ( c >= 7) and( c <= 9)then Begin Writeln ('msan diar el-chouhadaa'); Writeln ('Codification MSAN est: DRCN') End Else if (pq = 51) and (m = 1) then Begin Writeln ('msan 600 logts'); Writeln ('Codification MSAN est: 6CAN') End Else if (pq = 51) and (m = 8) and ( c >= 5) and( c <= 9)then Begin Writeln ('msan mizeb'); Writeln ('Codification MSAN est: MIZN') End Else if (pq = 51) and (m = 3) then Begin Writeln ('msan 1053 logts'); Writeln ('Codification MSAN est: MCAN') End Else if (pq = 51) and (m = 4) and ( c >= 0) and( c <= 4)then Begin Writeln ('msan 334 logts'); Writeln ('Codification MSAN est: 334N') End Else if (pq = 51) and (m = 8) and ( c >= 0) and( c <= 4)then Begin Writeln ('msan baala'); Writeln ('Codification MSAN est: MBAN') End Else if (pq = 52) and (m = 5) then Begin Writeln ('msan el ma labiod'); Writeln ('Codification MSAN est: MLAN') End Else if (pq = 52) and (m = 8) then Begin Writeln ('msan bekkaria'); Writeln ('Codification MSAN est: EKAN') End Else if (pq = 52) and (m = 1) then Begin Writeln ('msan el hammamet'); Writeln ('Codification MSAN est: H1AN') End Else if (pq = 53) and (m = 8) and ( c >= 1) and( c <= 3)then Begin Writeln ('msan boulhef el dyr'); Writeln ('Codification MSAN est: BDYN') End Else if (pq = 53) and (m = 2) and ( c >= 1) and( c <= 3)then Begin Writeln ('msan bir d heb'); Writeln ('Codification MSAN est: BDHN') End Else if (pq = 55) and (m = 0) and ( c >= 7) and( c <= 9)then Begin Writeln ('msan AEA2'); Writeln ('Codification MSAN est: A1BN') End Else if (pq = 55) and (m = 2) and ( c >= 0) and( c <= 2)then Begin Writeln ('msan AEB1'); Writeln ('Codification MSAN est: A2AN') End Else if (pq = 55) and (m = 2) and ( c >= 5) and( c <= 9)then Begin Writeln ('msan AEB2'); Writeln ('Codification MSAN est: A2BN') End Else if (pq = 55) and (m = 3) and ( c >= 0) and( c <= 4)then Begin Writeln ('msan AEB3'); Writeln ('Codification MSAN est: A2CN') End Else if (pq = 55) and (m = 3) and ( c >= 7) and( c <= 9)then Begin Writeln ('msan AEB4'); Writeln ('Codification MSAN est: A2DN') End Else if (pq = 55) and (m = 9) and ( c >= 5) and( c <= 9)then Begin Writeln ('msan CARACALA'); Writeln ('Codification MSAN est: CARN') End Else if (pq = 55) and (m = 5)then Begin Writeln ('msan MALEK BEN NABI'); Writeln ('Codification MSAN est: MBEN') End Else if (pq = 56) and (m = 3)then Begin Writeln ('msan DJBAL EL ANOUEL'); Writeln ('Codification MSAN est: DBAN') End Else if (pq = 56) and (m = 2)then Begin Writeln ('msan THEVEST'); Writeln ('Codification MSAN est: THEN') End Else if (pq = 58) and (m = 4) and ( c >= 1) and( c <= 3)then Begin Writeln ('msan NAFTAL'); Writeln ('Codification MSAN est: NFTN') End Else if (pq = 58) and (m >= 1) and( m <= 3)then Begin Writeln ('msan CAH'); Writeln ('Codification MSAN est: TSAN') End Else if (pq = 58) and (m = 0)then Begin Writeln ('msan EL MERDJA'); Writeln ('Codification MSAN est: EMRN') End Else if (pq = 58) and (m >= 5) and( m <= 6)then Begin Writeln ('msan RAFANA'); Writeln ('Codification MSAN est: RFAN') End Else if (pq = 58) and (m = 7)then Begin Writeln ('msan EL DJORF'); Writeln ('Codification MSAN est: JR1N') End Else if (pq = 58) and (m = 4) and (c >= 6) and(c <= 7)then Begin Writeln ('msan UNIVERSITE'); Writeln ('Codification MSAN est: UTBN') End Else if (pq = 59) and (m >= 1) and(m <= 2)then Begin Writeln ('msan CT6'); Writeln ('Codification MSAN est: CT6N') End Else if (pq = 59) and (m >= 5) and(m <= 6)then Begin Writeln ('msan URAD FATMA ZOHRA'); Writeln ('Codification MSAN est: FZON') End Else if (pq = 59) and (m >= 7) and(m <= 8)then Begin Writeln ('msan EPLF FATMA ZOHRA'); Writeln ('Codification MSAN est: EFZN') End Else if (pq = 59) and (m = 4) and (c >= 0) and(c <= 4)then Begin Writeln ('msan EVOLUTIF FATMA ZOHRA'); Writeln ('Codification MSAN est: EVFN') End Else if (pq = 60) and (m = 8) and (c >= 1) and(c <= 3)then Begin Writeln ('msan EL OGLA EL MELHA'); Writeln ('Codification MSAN est: EOMN') End Else if (pq = 62) and (m >= 1) and(m <= 2)then Begin Writeln ('msan DD ZOF CHERIA'); Writeln ('Codification MSAN est: CHZNN') End Else if (pq = 62) and (m = 0) and (c >= 0) and(c <= 7)then Begin Writeln ('msan EL OGLA'); Writeln ('Codification MSAN est: EOGN') End Else if (pq = 62) and (m = 5) and (c >= 1) and(c <= 5)then Begin Writeln ('msan EL MAZERAA'); Writeln ('Codification MSAN est: MAZN') End Else if (pq = 62) and (m = 7) and (c >= 1) and(c <= 5)then Begin Writeln ('msan THLIDJEN'); Writeln ('Codification MSAN est: THIN') End Else if (pq = 62) and (m = 8) and (c >= 0) and(c <= 6)then Begin Writeln ('msan BIR MOKADEM'); Writeln ('Codification MSAN est: BMKN') End Else if (pq = 64) and (m = 1) and (c >= 1) and(c <= 5)then Begin Writeln ('msan FERKANE'); Writeln ('Codification MSAN est: FEKN') End Else if (pq = 64) and (m = 2)then Begin Writeln ('msan NEGRINE'); Writeln ('Codification MSAN est: NEGN') End Else if (pq = 64) and (m = 6)then Begin Writeln ('msan DD-BIR EL ATER'); Writeln ('Codification MSAN est: BEEN') End Else if (pq = 64) and (m = 0) and (c >= 1) and(c <= 5)then Begin Writeln ('msan OUM ALI'); Writeln ('Codification MSAN est: OAIN') End Else if (pq = 64) and (m = 4) and (c >= 1) and(c <= 3)then Begin Writeln ('msan SAFSAF EL OUESRA'); Writeln ('Codification MSAN est: SEEN') End Else if (pq = 65)and (m >= 1) and(m <= 2)then Begin Writeln ('msan EL-AOUNET'); Writeln ('Codification MSAN est: EAON') End Else if (pq = 65) and (m >= 7) and(m <= 8)then Begin Writeln ('msan MORSOTT'); Writeln ('Codification MSAN est: MORN') End Else if (pq = 65) and (m = 3) and (c >= 0) and(c <= 2)then Begin Writeln ('msan 140 LOGTS GGF EL-AOUNET'); Writeln ('Codification MSAN est: 140N') End Else if (pq = 65) and (m = 0)then Begin Writeln ('msan BOUKHADRA'); Writeln ('Codification MSAN est:BOKN ') End Else if (pq = 65) and (m = 9)then Begin Writeln ('msan BOUKHADRA'); Writeln ('Codification MSAN est: BOKN') End Else if (pq = 67) and (m = 8)then Begin Writeln ('msan DD-OUENZA'); Writeln ('Codification MSAN est: OUEN') End Else if (pq = 67) and (m = 1) and (c >= 7) and(c <= 9)then Begin Writeln ('msan 300 LOGTS OUENZA'); Writeln ('Codification MSAN est: 3CLN') End Else if (pq = 67) and (m = 2) and (c >= 0) and(c <= 4)then Begin Writeln ('msan ESS OUENZA'); Writeln ('Codification MSAN est: ESSN') End Else if (pq = 67) and (m = 2) and (c >= 7) and(c <= 9)then Begin Writeln ('msan WIAM OUENZA'); Writeln ('Codification MSAN est: WIAN') End Else if (pq = 67) and (m = 1) and (c >= 0) and(c <= 6)then Begin Writeln ('msan CCE OUENZA'); Writeln ('Codification MSAN est: CCEN') End Else if (pq = 67) and (m = 3) and (c >= 4) and(c <= 6)then Begin Writeln ('msan ZOUABI OUENZA'); Writeln ('Codification MSAN est: ZOUN') End Else if (pq = 67) and (m = 3) and (c >= 7) and(c <= 9)then Begin Writeln ('msan BEN BADIS OUENZA'); Writeln ('Codification MSAN est: EBBN') End Else Begin Writeln ('not found') End; end.
run
|
edit
|
history
|
help
0
Пузырьковая сортировка массива
mulitp
Task 2
right angle triangle
basketball_player_training
SudokuSolver
zad27-optimal
444555666
hi
t moche