tailieunhanh - Tự học lập trình Pascal tập 4 part 9

Tham khảo tài liệu 'tự học lập trình pascal tập 4 part 9', công nghệ thông tin, kỹ thuật lập trình phục vụ nhu cầu học tập, nghiên cứu và làm việc hiệu quả | 200 z - z z Writeln TỪ ngày n1 7 t1 7 nam1 Writeln đến ngày n2 7 t2 7 nam2 Writelnf C0 abs ngaytd n2 t2 nam2 - -ngaytd n1 t1 nam1 1 ngày. WritelnfNhan Enter tiếp tục. Readln Writeln Chờ 3 phút s1 0 s 0 For nam -1800 to 1899 do For i ngaytd 1 1 nam to ngaytd 31 12 nam do Begin If i mod 7 6 then s1 s1 1 If i mod 7 0 then s s 1 End WritelnfTrong thế kỉ XIX có s1ngáy thứ bẩy và s ngày chủ nhật. WritelnfNhan Enter tiếp tục. Readln Writeln Nhập ngày tháng nãm Readln n1 t1 nam1 Writeln Ngày n1 tháng t1năm nam1 là aịngaytd n1 t1 nam1 mod 7 Writeln Nhấn Enter kết thúc. Readln End. Phần 2. HƯỚNG DẪN 201 8. TỔNG ÒN TẬP CHƯƠNG TRÌNH 1. Program P4801 Uses Crt Var N longint e TOỊ s X5t S5 Function chuso NN longint char Var st string 12 dem M longint Begin dem 0 M 0 Repeat M M 2 Str M st dem dem length st Until dem NN chuso st length st - dem-NN End Begin Clrscr Write Nhập N 2147483647 Readln N Writeln Chữ số thứ N của dã y vô hạn các số nguyên không âm chẩn Write chuso N Readln End. 202 Zji1 fittest 2. Program P4802 Uses Crt Var N longint Function chuso NN longint char Trả về chữ số thứ NN của dãy vô hạn các số nguyên không âm lẻ 135791113151719212325. Var st string 10 dem M longint Begin dem 0 M -1 Repeat M-M 2 Str M st dem -dem length st Until dem NN chuso st length st - dem-NN End r s s s sss s j Begin Clrscr Write Nhập N 2147483647 Readln N WritelnfChữ số thứ N của dãy vô hạn các số nguyẽn không âm lẻ Write chuso N Readln .