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)

740

Tailieumoi.vn biên soạn và giới thiệu bộ câu hỏi Tin học gồm các kiến thức lý thuyết và thực hành, giúp học sinh ôn tập và bổ sung kiến thức cũng như hoàn thành tốt các bài kiểm tra môn Tin học. Mời các bạn đón xem:

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)

Câu 59: 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:

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 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.

Đánh giá

0

0 đánh giá