|
|
вернуться в форумwhi i get WA end please tell me how i mast do it and i will tell you senc your?here is a my program const max=20000; var x:longint; p2,p1:real; begin readln (p1,p2); for x:=1 to max do if abs(p2/100*x-p1/100*x)>=1 then begin writeln (x); halt; end; end. |
|
|