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
zadacha1
For3
nomer5
solar system array
practica 3 ejercicio 7
homework
Calcula média de pesos, o maior peso, o menos peso
zadanye 3 г
Определение стенки с максимальной высотой
звёздное небо с подсчётом двойных звёзд