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 câu trả lời
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.
