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)
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)
Ở Ảnh nha bn
uses crt;
var s,a,b,c:longint;
function tong(a:longint):longint;
begin
tong:=0;
repeat
inc(tong,a mod 10);
a:=a div 10;
until a=0;
end;
begin
clrscr;
write(‘Ngay sinh: ‘);readln(a);
write(‘Thang sinh: ‘);readln(b);
write(‘Nam sinh: ‘);readln(c);
s:=a+b+c;
while s>9 do
s:=tong(s);
if s=1 then writeln(‘That bai nang ne :)’) else
if s=2 then writeln(‘Tinh duyen lan dan’) else
if s=3 then writeln(‘Kha la thanh cong’) else
if s=4 then writeln(‘Sau nay that bai’) else
if s=5 then writeln(‘Khong co gi dac biet’) else
if s=6 then writeln(‘Tren troi rot xuong’) else
if s=7 then writeln(‘Lam ti phu’) else
if s=8 then writeln(‘Song lau tram tuoi’) else
if s=9 then writeln(‘Sau nay lam sieu nhan’);
readln
end.