Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
CALCULATE FILE
program td; Var Carte,C , N :real; T :integer; begin Readln (T); if T >= 1584 then begin T:= (T-1584); Carte := ((T+1)/48); C :=((frac (Carte))*48); N :=((T/48)+1); if c = 0 then begin Writeln ('Circuit Numéro :' ,48 ); Writeln ('La carte Numéro:' ,trunc (N) ); Writeln ('Shelf Numéro: 3' ); end else begin Writeln ('Circuit Numéro :' ,Round(C) ); Writeln ('La carte Numéro:' ,trunc (N) ); Writeln ('Shelf Numéro: 3' ); end end else if T >= 768 then begin T:= T-768; Carte := ((T+1)/48); C :=((frac (Carte))*48); N :=((t/48)+1); if c = 0 then begin Writeln ('Circuit Numéro :' ,48 ); Writeln ('La carte Numéro:' ,trunc (N) ); Writeln ('Shelf Numéro: 2' ); end else begin Writeln ('Circuit Numéro :' ,Round(C) ); Writeln ('La carte Numéro:' ,trunc (N) ); Writeln ('Shelf Numéro: 2' ); end end else begin Carte := ((T+1)/48); C :=((frac (Carte))*48); N :=((t/48)+1); if c = 0 then begin Writeln ('Circuit Numéro :' ,48 ); Writeln ('La carte Numéro:' ,trunc (N) ); Writeln ('Shelf Numéro: 1' ); end else begin Writeln ('Circuit Numéro :' ,Round(C) ); Writeln ('La carte Numéro:' ,trunc (N) ); Writeln ('Shelf Numéro: 1' ); end end end.
run
|
edit
|
history
|
help
0
Matriz 9x9
solar_system_5
record as a procedure argument
solar system4 (update)
Area of a Triangle
вывод строк символов
[DE/GER] Vigenere Chiffre (Verschlüsselung)
Huong11a2@
busca de string
naloga 3 za janjo