Câu 7 trang 51 SGK Tin học 11: Bài tập và thực hành 2. 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.
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.
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) ;
Advertisements (Quảng cáo)
readln(tuoicha,tuoicon); nam:= 0;
while tuoicha<>2*tuoicon do begin
tuoicha:= tuoicha + tuoicon := tuoicon + 1; nam:= nam +1;
end;
writeln ( ‘ Sau ‘ , nam, ‘ nam, tuoi cha gap doi tuoi con’ );
readln
End.