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

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

Viết một bình luận