GIVE ME SOME TEST!!!!!! I STILL HAVE WA#2!!!!!!!!!

[code deleted]

this right?

Edited by moderator 22.02.2006 00:38

var a,b,n,k1,k2:longint;
begin
 readln(a,b,n);
  while n>=a  do
   begin
    n:=n-a;
    k1:=k1+1;
   end;
  while n>=b do
   begin
    n:=n-b;
    k2:=k2+1;
   end;
 writeln(k1,' ',k2);
end.
земляк помоги решить 10 задачу или проверь

8 5 10
Answer: 0 2

Do you check if N=0??

Do you check if N=0??
sorry for doublepost

Edited by author 11.02.2006 16:13

My answer is 0 0.

Whay it does not work too? (WA#2)

var
   a, b, n: LongInt;
   x,y,xo,yo,q,w: LongInt;

begin
Read(a, b, n);

x := n div a;
xo := n mod a;
y := n div b;
yo := n mod b;
q := x * a + xo div b * b;
w := y * b + yo div a * a;

If q >= w then
   WriteLn(x, ' ', xo div b)
Else
   WriteLn(yo div a, ' ', y);
end.

47 3 49
ans: 0 16
2 3 7
ans:
2 1

It is not guaranteed that A >= B and 2 test checks this. AFAIK if you will throw error if B > A, then you will get Runtime Error on test 2.

Edited by author 06.03.2024 16:54