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
Obrni listu
9
GABRIELLA ALVES DA SILVA 600307538
practica 1 ejercicio 5
For9
урок 13 пример 3 параметры по значению и параметры переменные
123456
Test 1
Projet1
IT101 - W4_1