Biết tuổi cha 35 tuổi và tuổi con 10 tuổi đưa ra màn hình cho câu hỏi." Bao nhiêu năm nữa thì tuổi cha gấp đôi tuổi con"

Program Tuoi;

Var cha, con, a, b:integer;

Begin

        cha:=35; con:=10;

        a:=cha-con;

        a:=a*2;

        b:=a- cha;

        Write(b,' nam nua thi tuoi cha gap doi tuoi con.');

        Readln;

End.

program bai7;

uses crt;

var tcha,tcon,nam:integer;

begin

              clrscr;

              writeln('nhap vao tuoi cha va tuoi con ');

              readln(tcha,tcon);

              nam:=0;

              while(tcha<>tcon*2) do

              begin

              tcha:=tcha+1;

              tcon:=tcon+1;

              nam:=nam+1;

              end;

              writeln('sau ',nam,' nam nua thi tuoi cha gap 2 lan tuoi con'); readln;

              end.

Kết quả:

Học tốt nhé !