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, không dùng FUNCTION )
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)
var
u:real;
s1,s2,s3,o,tg:LongInt;
begin
WriteLn(‘nhap ngay sinh:’);
readln(s1);
WriteLn(‘nhap thang sinh:’);
ReadLn(s2);
WriteLn(‘nhap nam sinh:’);
ReadLn(s3);
tg:=s1+s2+s3;
while tg>10 do
begin
o:=tg;
tg:=0;
while o0 do
begin
tg:=tg + (o mod 10);
o:= o div 10
end;
end;
writeln;
if tg=1 then
WriteLn(‘ban se duoc 10d toan’);
if tg=2 then
WriteLn(‘ban se duoc crush thich’);
if tg=3 then
WriteLn(‘ban se bi thay co la ‘);
if tg=4 then
WriteLn(‘ban se bi mat tien’);
if tg=5 then
WriteLn(‘ban se duoc ba tang qua’);
if tg=6 then
WriteLn(‘ban se lum duoc 100k’);
if tg=7 then
WriteLn(‘ban se duoc ban than moi an lau’);
if tg=8 then
WriteLn(‘ban se duoc trung ve di du lich han quoc’);
if tg=9 then
WriteLn(‘ban se duoc 9d van’);
readln;
end.