Viết ct nhập vào từ bàn phím:Họ và tên; ngày tháng năm sinh của em rồi in các thông tin đó ra màn hình Lưu ct với tên KT_tên em.pas Chỉ em vs ạ Sắp th

0 bình luận về “Viết ct nhập vào từ bàn phím:Họ và tên; ngày tháng năm sinh của em rồi in các thông tin đó ra màn hình Lưu ct với tên KT_tên em.pas Chỉ em vs ạ Sắp th”

1. program KT_tenem;

   uses crt;

     var hoten, ntns: string;

   begin

     clrscr;

     write(‘Nhap ho va ten em: ‘); readln(hoten);

     write(‘Nhap ngay thang nam sinh cua em: ‘); readln(ntns);

     writeln(‘Ho va ten em la: ‘, hoten);

     writeln(‘Ngay thang nam sinh cua em la: ‘, ntns);

     readln

   end.

   Bình luận

2. Program hoidap247;

   uses crt;

   var hvt,ns:strings;

   begin

   write(‘Ho va ten: ‘);

   readln(hvt);

   write(‘Ngay thang nam sinh: ‘);

   readln(ns);

   writeln(‘Ho va ten la: ‘, hoten);

   writeln(‘Ngay thang nam sinh la: ‘, ns);

   readln

   end.

   Bình luận