Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
nomer9
var n,k,a,b,c,d,x,y,m,v,q,w,e,s,p:Real; z:Longint; begin assign(input,'input.txt'); Reset(input); assign(output,'output.txt'); ReWrite(output); Read(a,b,c,d,x,y); if (a<=0) or (b<=0) or (c<=0) or (d<=0) or (x<=0) or (y<=0) then WriteLn(-1) else begin n:=x / (x+y); m:=c / (c+d); k:=a/(a+b); e:=c/(c+d); if (n-m=0) or (k-e =0) or ((k-e>0) and (n-m<0)) or ((k-e<0) and (n-m>0)) then WriteLn(-1) else begin w:=(n-m)/(k-e); s:=w*1000; q:=round(s); z:=trunc(q); WriteLn(z); end; end; end.
run
|
edit
|
history
|
help
0
1
practica 11 ejercicio 2
corza71
bai1
Huong11a2@
zadanye 3 г
Record as a procedure argument
Пузырьковая сортировка, среднее и среднее медианное
Mostrar un arreglo ( array )
08 Ariketa