cac bac lam nhu vay chi cho nhoc cong the xem tui ne
program BT;
uses crt;
var a, b: integer;
begin
clrscr;
writeln(' hay nhap tuoi cha va tuoi con voi dieu kien tuoi cha lon gap 2 lan tuoi con va tuoi cha lon hon tuoi con 25);
writeln(' tuoi cha la' ); readln(a);
writeln(' tuoi con la' ); readln(b);
if a=2*b then writeln(' hien nay tuoi cha gap 2 lan tuoi con);
else writeln(' sau', a-2*b,'tuoi cha se gap doi tuoi con');
end.
Bookmarks