Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Douane fini
//fpc 3.0.0 program HelloWorld; var price,tva,Form,Import,Total: extended; begin writeln('Donnez moi le prix du colis'); readln (price); if (price <22) then begin Form := 0; end else begin tva := price * 0.21; Form := 150; if (price >= 22) then Form := 15 else Form := 150; end; if (price >= 150) then Import := price * 0.3; writeln('-Vous avez payer ',price:1:2,'€',' pour votre colis'); writeln('-Votre Tva est de ',tva:1:2,'€'); writeln('-Vos formalité doanniere sont de ',Form:1:2,'€'); writeln('-Vos frais d''importation sont de ',Import:1:2,'€'); Total := price+tva+Form+Import; writeln('-Le total a payer s''eleve a ',Total:1:2,'€'); end.
run
|
edit
|
history
|
help
0
Vector Distancia constante
zadacha10
Tugas
Lab1SumWithWhile
suduko solver
Localisation ND
Escribir numeros a palabras hasta 4 digitos
Бассейн-7=
Régua Para tanque cilindrico horizontal
ariketa 05