Viết chương trình tính tuổi của mỗi người biết năm sinh và tên được nhập từ bàn phím? Thanks you

0 bình luận về “Viết chương trình tính tuổi của mỗi người biết năm sinh và tên được nhập từ bàn phím? Thanks you”

1. var ns:lognint;

         ten:string;

   begin

   write(‘Nhap nam sinh: ‘); readln(ns);

   write(‘Nhap ten: ‘); readln(ten);

   write(‘Tuoi cua ‘,ten,’ cho den nam 2020 la: ‘2020-ns+1);

   readln;

   end.

   Bình luận

2. program hc;
   uses crt;
   var n, t:Integer;d:String;
   begin
   clrscr;
   write(‘nhap ten’:5);
   readln(d);
   write(‘nhap nam sinh’);
   ReadLn(n);
   t:=2019–n;
   writeln(‘tuoi cua’:4,D,‘la’,t:4);
     readln;
   end.

   Bình luận