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

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)

0 bình luận về “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”

  1. 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.

    Bình luận

Viết một bình luận