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)
uSES CRT;
vAR d,n,t,two,i,tong,k:longint; s:string;
a:array[1..9] of string;
begin
clrscr;
a[1]:=’xui xeo trong tuong lai’;
a[2]:=’lan dan, tim kiem hp hay gap xui xeo cung kho tranh khoi’;
a[3]:=’kho khan trong cs’;
a[4]:=’hanh phuc’;
a[5]:=’e’;
a[6]:=’kem may man bo lo co hoi’;
a[7]:=’khong co gi dac sac’;
a[8]:=’boi khong ra, khi van tiem tang, at gap may, chi can co gang trong cuoc song’;
a[9]:=’nha cao cua rong, vo nho vo to’;
write(‘Ngay:’);Readln(d);
write(‘Thang:’);Readln(t);
write(‘Nam’);Readln(N);
tong:=d+t+n; str(tong,s);
// Writeln(s);
Write(‘So tinh duyen cua ban la: ‘);
If Length(s)=1 then write(S) else
begin
repeat
two:=0;
For i:=1 to length(s) do
begin
Val(s[i],k);
Inc(two,k);
end; str(two,s);
until length(s)=1; write(s); end;
Val(s,k); writeln;
Writeln(a[k]);
end.