program canchi;
uses crt;
var N: integer;
a,b,k: integer;
can,chi: integer;
begin
clrscr;
writeln('Nhap nam: '); read(N);
a:=N mod 10;
N:=N div 10;
b:=N mod 10;
can:= a;
b:=b*10+a;
chi:=b mod 12;
writeln('Nam do duoc goi la ');
begin
if can = 0 then write('Mao ');
if can = 1 then write('Tan ');
if can = 2 then write('Nham ');
if can = 3 then write('Quy ');
if can = 4 then write('Giap ');
if can = 5 then write('At ');
if can = 6 then write('Binh ');
if can = 7 then write('Dinh ');
if can = 8 then write('Mau ');
if can = 9 then write('Ky ');
end;
begin
if chi = 0 then write('Ty');
if chi = 1 then write('Suu');
if chi = 2 then write('Dan');
if chi = 3 then write('Mao);
if chi = 4 then write('Thin');
if chi = 5 then write('Ty.');
if chi = 6 then write('Ngo');
if chi = 7 then write('Mui');
if chi = 8 then write('Than');
if chi = 9 then write('Dau');
if chi = 10 then write('Tuat');
if chi = 11 then write('Hoi');
end;
readln
end.
Đúng 0
Bình luận (0)
