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

Tham khảo tài liệu 'tự học lập trình pascal tập 4 part 8', 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ả | Phần 2. HƯỚNG DAN 175 While i sqrt m and n Mod i 0 do inc i If i sqrt n then ngto true Else ngto False End Function dx n integer boolean Var A array of integer I j integer Begin i 0 While n 0 do Begin inc i A i n mod 2 n n div 2 End j 1 While j i div 2 and A A i-j t do inc j If j t div 2 1 then dx true Else dx False End. zzz z zzz z z zz z zz zzz Begin chương trình chỉnh Writeln Các số tự nhiên thoẳ mã n là 1 For n 100 to 999 do Begin if dx n and ngto n then Writeln n 4 End Readln End. 176 T - pạs 5. Program P4705 Uses Crt Var s Word string L i integer Begin Clrscr WritelnfCho một xâu kí tự Readln S i length S Word - While i 1 and S i 32 do Begin S i word dec i End Write TỪ cuối cùng của xâu là Writeln Word j 1 L Length Word While j L div 2 and Word j Word L-j 1 do inc ị If j L div 2 then Writeln Đây là từ đối xứng Else Writeln Từ không đốĩ xứng Readln End. 6. Để ý rằng nếu 2n 3m 1 và n 10 thì ta phải có 3 2n -1 210 1024 37 suy ra m 6. Program P4706 Uses Crt Phần 2. HƯỞNG DAN 177 Var m n integer Function HaLmu n integer integer Var i M integer Begin M 1 For i 1 to n do M M 2 Hai_mu M End Function Bajnu n integer integer Var i M integer Begin M 1 For i 1 to n do M M 3 Ba_mu M End r s ss ss s s zs m ss Begin chương trình chính Clrscr For n 1 to 10 do For m 1 to 6 do Begin lfhaijnu n ba_mu m 1 then Writeln n 2 m 2 End Read In .