Nhập từ bàn phím tuổi của cha và con [tuổi của cha hơn tuổi con ít nhất là 25]. Đưa ra màn hình bao nhiêu năm nữa thì tuổi cha gấp đôi tuổi con.
Đề bài
Nhập từ bàn phím tuổi của cha và con [tuổi của cha hơn tuổi con ít nhất là 25]. Đưa ra màn hình bao nhiêu năm nữa thì tuổi cha gấp đôi tuổi con.
Lời giải chi tiết
Chương trình về tuổi cha và tuổi con:
program tuoi_cha_con;
uses crt;
var tuoicha, tuoicon, nam: longint;
begin
clrscr;
write['Nhap tuoi cha va con[tuoicha-tuoicon>=25] ;
readln[tuoicha,tuoicon]; nam:= 0;
while tuoicha2*tuoicon do begin
tuoicha:= tuoicha +tuoicon := tuoicon + 1; nam:= nam +1;
end;
writeln [ ' Sau ', nam, ' nam, tuoi cha gap doi tuoi con' ];
readln
End.