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ậ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
By Ruby
Ở Ả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.