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 thi r????
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
By Maria
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.
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.