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

Tham khảo tài liệu 'tự học lập trình pascal tập 2 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 DẪN 105 b Program 2603b Const a array of char a a b c d 0 Var i byte c boolean Begin c False For j 1 to 9 do If a i a and a i-1 b or a i b and a i 1 a then c True If c then Writeln Có hai ký tự a b đứng liền nhau. Else Writein Không có hai ký tự a b đứng lién nhau. Readln End. 3. c Giống câu b 4. Program 2604 Var a array of shortint atg shortint i byte Begin Writeln Nhập một dãý ị số nguyên độ dàl n 20 For i 1 to 20 do Begin Write ar i 2 1 Readln a i End For i -1 to 10 do If a i a i 10 then 106 Pascal dành cho hạc sinh Begin atg a i a i a i 10 a i 10 atg End For i 1 to 10 do Write a i 8 Readln End 5- Program P2605 Var a array 1 .20 of shortint i byte c boolean Begin Writein Nhập một dãy 20 số nguyên For i 1 to 20 do Begin Write a i 2 Readln a i End c False For i 2 to 20 do If not odd a i and ood a M then c True For i 1 to 20 do If not c and a i 0 or a i 0 and c then Write a i 8 Readln End. Phần 2. HƯỚNG DAN 107 6. Program P2606 Var A array 1. 100 of real n i j byte Begin Write Nhập độ dài của dãy số n Readln n Write Nhập các phắn tử của dãy For i 1 to n do Begin Write a i 2 Readln a i End For i 1 to n-1 do For j i 1 to n do If a i a j then WritelnfC i 2 j 2 Read In End. 7. Program P2607 Var M N I j s word nt boolean Begin Writeln Nhập hai số tự nhiên 0 N M WritefN- Readln N WritefM- Reađln M S 0 For i N to M do Begin If i 1 then nt True Else nt -False các sô o 1 sô 2 là sô nguyên tố không cần kiềm .