PROGRAM CT60;
USES crt;
VAR a,b,n: BYTE;
BEGIN
clrscr;
a:=1; b:=1;
WHILE (a<>2*b) AND (a-b<25) DO
BEGIN
Write('Nhap tuoi cha va tuoi con: '); Readln(a,b);
END;
n:=a;
a:=a+1; b:=b+1;
WHILE a<>2*b DO
BEGIN
a:=a+1; b:=b+1;
END;
n:=a-n;
Writeln('Sau ',a,' nam nua tuoi cha gap hai lan tuoi con ');
Readln
END.
Download: http://www.mediafire.com/?545wboba8arircv
USES crt;
VAR a,b,n: BYTE;
BEGIN
clrscr;
a:=1; b:=1;
WHILE (a<>2*b) AND (a-b<25) DO
BEGIN
Write('Nhap tuoi cha va tuoi con: '); Readln(a,b);
END;
n:=a;
a:=a+1; b:=b+1;
WHILE a<>2*b DO
BEGIN
a:=a+1; b:=b+1;
END;
n:=a-n;
Writeln('Sau ',a,' nam nua tuoi cha gap hai lan tuoi con ');
Readln
END.
Download: http://www.mediafire.com/?545wboba8arircv