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
LogOp2
[DE/GER] Caesar Chiffre (Verschlüsseln)
Сортировка массиа прямым выбором
1januar2018
pascal sizeof
7
Llenar un arreglo (con for)
practica 7 ejercicio 5
12345
nomer7