Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
pdp31-boolean
(* USER: 1736 LANG: PASCAL TASK: hydrocarbons *) var b,c:integer; x:real; n,i,a:longint; a_ok,b_ok,c_ok:boolean; begin readln(n); for i:=1 to n do begin readln(a,b,c); x:=a*(1-b/3000-c/40); a_ok:=(1<=a) and (a<=1000000000); b_ok:=(1<=b) and (b<=3000); c_ok:=(1<=c) and (c<=40); if a_ok and b_ok and c_ok then writeln(x:12:2) else writeln('wrong input'); end; end.
run
|
edit
|
history
|
help
0
Program summa
virtuelna ravan-preklapanje krugova
1 25 5
Code1
BubbleSort (standaard)
Project Euler 18 - Maximum path sum
Pokazivac-dinamicka alokacija memorije
practica 7 ejercicio B5
testMatrice0.1
pdp31-final