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') End else if (pq = 50) and (m = 9) then Begin Writeln ('msan casorec') End Else if (pq = 50) and (m = 1) and (c <= 3) then Begin Writeln ('msan WILAYA') End Else if (pq = 50) and (m = 6) then Begin Writeln ('msan aadl') End Else if (pq = 50) and (m = 5) then Begin Writeln ('msan lot communal') End Else if (pq = 50) and (m >= 2 ) and ( m <= 3) then Begin Writeln ('msan skanska') End Else if (pq = 50) and (m = 8) then Begin Writeln ('msan 1er novembre') End Else if (pq = 50) and (m = 4) then Begin Writeln ('msan wiam') End Else if (pq = 51) and (m = 0) and ( c <= 4)then Begin Writeln ('msan 4 mars le marché') End Else if (pq = 51) and (m = 6) and ( c <= 4)then Begin Writeln ('masn houari boumediene') End Else if (pq = 51) and (m = 6) and ( c >= 7) and( c <= 9)then Begin Writeln ('msan diar el-chouhadaa') End Else if (pq = 51) and (m = 1) then Begin Writeln ('msan 600 logts') End Else if (pq = 51) and (m = 8) and ( c >= 5) and( c <= 9)then Begin Writeln ('msan mizeb') End Else if (pq = 51) and (m = 3) then Begin Writeln ('msan 1053 logts') End Else if (pq = 51) and (m = 4) and ( c >= 0) and( c <= 4)then Begin Writeln ('msan 334 logts') End Else if (pq = 51) and (m = 8) and ( c >= 0) and( c <= 4)then Begin Writeln ('msan baala') End Else if (pq = 52) and (m = 5) then Begin Writeln ('msan el ma labiod') End Else if (pq = 52) and (m = 8) then Begin Writeln ('msan bekkaria') End Else if (pq = 52) and (m = 1) then Begin Writeln ('msan el hammamet') End Else if (pq = 53) and (m = 8) and ( c >= 1) and( c <= 3)then Begin Writeln ('msan boulhef el dyr') End Else if (pq = 53) and (m = 2) and ( c >= 1) and( c <= 3)then Begin Writeln ('msan bir d heb') End Else if (pq = 55) and (m = 0) and ( c >= 7) and( c <= 9)then Begin Writeln ('msan AEA2') End Else if (pq = 55) and (m = 2) and ( c >= 0) and( c <= 2)then Begin Writeln ('msan AEB1') End Else if (pq = 55) and (m = 2) and ( c >= 5) and( c <= 9)then Begin Writeln ('msan AEB2') End Else if (pq = 55) and (m = 3) and ( c >= 0) and( c <= 4)then Begin Writeln ('msan AEB3') End Else if (pq = 55) and (m = 3) and ( c >= 7) and( c <= 9)then Begin Writeln ('msan AEB4') End Else if (pq = 55) and (m = 9) and ( c >= 5) and( c <= 9)then Begin Writeln ('msan CARACALA') End Else if (pq = 55) and (m = 5)then Begin Writeln ('msan MALEK BEN NABI') End Else if (pq = 56) and (m = 3)then Begin Writeln ('msan DJBAL EL ANOUEL') End Else if (pq = 56) and (m = 2)then Begin Writeln ('msan THEVEST') End Else if (pq = 58) and (m = 4) and ( c >= 1) and( c <= 3)then Begin Writeln ('msan NAFTAL') End Else if (pq = 58) and (m >= 1) and( m <= 3)then Begin Writeln ('msan CAH') End Else if (pq = 58) and (m = 0)then Begin Writeln ('msan EL MERDJA') End Else if (pq = 58) and (m >= 5) and( m <= 6)then Begin Writeln ('msan RAFANA') End Else if (pq = 58) and (m = 7)then Begin Writeln ('msan EL DJORF') End Else if (pq = 58) and (m = 4) and (c >= 6) and(c <= 7)then Begin Writeln ('msan UNIVERSITE') End Else if (pq = 59) and (m >= 1) and(m <= 2)then Begin Writeln ('msan CT6') End Else if (pq = 59) and (m >= 5) and(m <= 6)then Begin Writeln ('msan FATMA ZOHRA') End Else if (pq = 59) and (m >= 7) and(m <= 8)then Begin Writeln ('msan EPLF FATMA ZOHRA') End Else if (pq = 59) and (m = 4) and (c >= 0) and(c <= 4)then Begin Writeln ('msan EVOLUTIF FATMA ZOHRA') End Else if (pq = 60) and (m = 8) and (c >= 1) and(c <= 3)then Begin Writeln ('msan EL OGLA EL MELHA') End Else if (pq = 62) and (m >= 1) and(m <= 2)then Begin Writeln ('msan DD ZOF CHERIA') End Else if (pq = 62) and (m = 0) and (c >= 0) and(c <= 7)then Begin Writeln ('msan EL OGLA') End Else if (pq = 62) and (m = 5) and (c >= 1) and(c <= 5)then Begin Writeln ('msan EL MAZERAA') End Else if (pq = 62) and (m = 7) and (c >= 1) and(c <= 5)then Begin Writeln ('msan THLIDJEN') End Else if (pq = 62) and (m = 8) and (c >= 0) and(c <= 6)then Begin Writeln ('msan BIR MOKADEM') End Else if (pq = 64) and (m = 1) and (c >= 1) and(c <= 5)then Begin Writeln ('msan FERKANE') End Else if (pq = 64) and (m = 4)then Begin Writeln ('msan NEGRINE') End Else if (pq = 64) and (m = 6)then Begin Writeln ('msan DD-BIR EL ATER') End Else if (pq = 64) and (m = 0) and (c >= 1) and(c <= 5)then Begin Writeln ('msan OUM ALI') End Else if (pq = 64) and (m = 4) and (c >= 1) and(c <= 3)then Begin Writeln ('msan SAFSAF EL OUESRA') End Else if (pq = 65)and (m >= 1) and(m <= 2)then Begin Writeln ('msan EL-AOUNET') End Else if (pq = 65) and (m >= 7) and(m <= 8)then Begin Writeln ('msan MORSOTT') End Else if (pq = 65) and (m = 3) and (c >= 0) and(c <= 2)then Begin Writeln ('msan 140 LOGTS GGF EL-AOUNET') End Else if (pq = 65) and (m = 0)then Begin Writeln ('msan BOUKHADRA') End Else if (pq = 65) and (m = 9)then Begin Writeln ('msan BOUKHADRA') End Else if (pq = 65) and (m = 0)then Begin Writeln ('msan BOUKHADRA') End Else if (pq = 67) and (m = 8)then Begin Writeln ('msan DD-OUENZA') End Else if (pq = 67) and (m = 1) and (c >= 7) and(c <= 9)then Begin Writeln ('msan 300 LOGTS OUENZA') End Else if (pq = 67) and (m = 2) and (c >= 0) and(c <= 4)then Begin Writeln ('msan ESS OUENZA') End Else if (pq = 67) and (m = 2) and (c >= 7) and(c <= 9)then Begin Writeln ('msan WIAM OUENZA') End Else if (pq = 67) and (m = 1) and (c >= 0) and(c <= 6)then Begin Writeln ('msan CCE OUENZA') End Else if (pq = 67) and (m = 3) and (c >= 4) and(c <= 6)then Begin Writeln ('msan ZOUABI OUENZA') End Else if (pq = 67) and (m = 3) and (c >= 7) and(c <= 9)then Begin Writeln ('msan BEN BADIS OUENZA') End Else Begin Writeln ('not found') End; end.
run
|
edit
|
history
|
help
0
Matrix,colums with all equal elements
zwro
Урок 4 задача 6
abundante
Zad 3 b
1 25 6
practica 7 ejercicio B3
AreaTriangulo.pas
practica 5 ejercicio 6
fixed vs scientific for double