Discussion @ 1011. Conductors @ Timus Online Judge

AC program

Posted by the oldest cat 18 Jul 2003 09:20

program ural1011;
var i:longint;
    one,p,q:extended;
begin
read(p,q);
i:=1;
repeat
    one:=100/i;
    if trunc(q/one)-trunc(p/one)>0 then
      begin
        if (frac(q/one)>0) and (frac(p/one)>0) then
          begin
            writeln(i);
            halt;
          end;
      end;
    i:=i+1;
until false;
end.

Re: AC program

Posted by Dexter 14 Dec 2005 08:16

Why didn't I get AC by submiting this one?

Why didn't you write it yourself? :) (-)

Posted by Dmitry 'Diman_YES' Kovalioff 14 Dec 2005 14:20

Discussion of Problem 1011. Conductors