Viết Chương trình Nhập Họ Và Tên Năm Sinh Rồi đưa Ra Màn Hình Tên Tuổi Giúp Mình Vote 5 sao Ạ :)) zi

0 bình luận về “Viết Chương trình Nhập Họ Và Tên Năm Sinh Rồi đưa Ra Màn Hình Tên Tuổi Giúp Mình Vote 5 sao Ạ :)) zi”

1. program ten_tuoi;

   uses crt;

   var ht,ten:string;

        ns:integer;

   begin

         clrscr;

         write(‘Nhap ho va ten: ‘);  readln(ht);

         repeat

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

               writeln(‘Nam sinh khong hop le. Nhap lai’);

         until ns<=2021;

         ten:=”;  i:=length(ht);

         while ht[i]<>’ ‘ do

               begin

                     ten:=ht[i]+ten;

                     i:=i-1;

               end;

         write(ten,’ : ‘,2021-ns);

         readln;

   end.

   Bình luận