2001 - BÀI TOÁN ĐỔI MÀU BI(DÀNH CHO HỌC SINH THCS VÀ PTTH) PROG...

Bài 50/2001 - Bài toán đổi màu bi

(Dành cho học sinh THCS và PTTH)

Program ba_bi;

Uses crt;

var v,x,d:integer;

BEGIN

Clrscr;

writeln('v x d ?(>=0)');

readln(v,x,d);

if ((v-x)mod 3 =0)and((x+d)*(v+d)<>0) then

while (v+x)<>0 do

begin

d:=d-1+3*((3*v*x)div(3*v*x-1));

x:=x+2-3*((3*x)div(3*x-1));

v:=v+2-3*((3*v)div(3*v-1));

writeln('>> ',v,' ',x,' ',d);

end

else writeln('Khong duoc !');

readln;

END.

(Lời giải của bạn:Nguyễn Quang Trung)