Tin học Tin học lập trình Pascal 8

[Tô Thị Quỳnh Như]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Viết chương trình nhập vào tuổi của bố và tuổi của con năm nay.
-Kiểm tra xem bao nhiêu năm nữa thì tuổi bố gấp 3 lần tuổi con.

 

[trà nguyễn hữu nghĩa]

uses crt;
var tb,tc,nam: integer;
BEGIN
            clrscr;
            write('nhap tuoi bo va con: ');
            readln(tb,tc);
            nam := 0;
            while tb <> tc * 3 do
             begin
                       tb := tb + 1;
                       tc := tc + 1;
                       nam := nam + 1;
             end;   
        write('sau ',nam,' nam nua thi tuoi bo gap 3 lan tuoi con.');
        readln;
END.