Nhập ngày tháng năm sinh của một người sau đó xem bói cho người ta bằng cách lấy hai số của ngày cộng hai số của tháng cộng 4 số của năm cộng liên tục cho đến khi chỉ còn một số. (Với ngày tháng năm sinh nhập từ bàn phím. Viết chương trình bằng ngôn ngữ pascal và không dùng chương trình con)
Ví dụ:
Ngày sinh: 12
Tháng sinh: 10
Năm sinh: 2004
=> 12+10+2004=2026=2+0+2+6=10=1+0=1
Nếu kết quả là số 1: thì người đó sẽ làm sao
Nếu kết quả là số 2: thì người đó tình duyên lận đận
Nếu kết quả là số 3: thì ….. (bịa ra)
…
Nếu kết quà là số 9: thì …. (bịa ra)
uses crt;
var n,t,y,s:longint;
function sum(a:longint):longint;
begin
sum:=0;
repeat
inc(sum,a mod 10);
a:=a div 10;
until a=0;
end;
begin
clrscr;
write(‘Ngay sinh: ‘); readln(n);
write(‘Thang sinh: ‘); readln(t);
write(‘Nam sinh: ‘); readln(y);
s:=s+n+t+y;
repeat
s:=sum(s);
until s<10;
if s=1 then writeln(‘An Khang Thinh Vuong’)
else if s=2 then writeln(‘Con cai hoc gioi’)
else if s=3 then writeln(‘Lam an phat tai’)
else if s=4 then writeln(‘Su nghiep thanh cong’)
else if s=5 then writeln(‘Crush dong y’)
else if s=6 then writeln(‘Bi crush da :))’)
else if s=7 then writeln(‘Con cai vang loi’)
else if s=8 then writeln(‘Tien vo nhu nuoc’)
else if s=9 then writeln(‘Co long giup nguoi ngheo’);
readln
end.