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
practica 1 ejercicio 5
рекурсия двух функций
registro de alunos, calculo de média
Union of set with array of elements
test13
virtuelna ravan-preklapanje krugova
zadanye 3 г
Tugas1
For6
6