Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
1
//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(price:8:2); writeln(tva:8:2); writeln(Form:8:2); writeln(Import:8:2); Total := price+tva+Form+Import; writeln(Total:8:2); end.
run
|
edit
|
history
|
help
0
НОД по моему
sorting_direct_choise_no_optimized
Calculatrice 1.0
Potenztabelle
pdp31-boolean
record as a procedure argument
ор
kiem_tra_nguyen_to
How many letters?
test10