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
practica 2 ejercicio 6
JOAO PEDRO REIS PEREIRA CORREA 600622602
practica 7 ejercicio 3
Calcular digitos de un numero (hasta 4 digitos)
tarea1
Prosti brojevi praktikum nizovi
zadanye 3 a
факторизация числа
practica 7 ejercicio 5
janja - naloga 1 - 11.7.2013