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

TAILIEUCHUNG - Chia sẻ tài liệu không giới hạn
Địa chỉ : 444 Hoang Hoa Tham, Hanoi, Viet Nam
Website : tailieuchung.com
Email : tailieuchung20@gmail.com
Tailieuchung.com là thư viện tài liệu trực tuyến, nơi chia sẽ trao đổi hàng triệu tài liệu như luận văn đồ án, sách, giáo trình, đề thi.
Chúng tôi không chịu trách nhiệm liên quan đến các vấn đề bản quyền nội dung tài liệu được thành viên tự nguyện đăng tải lên, nếu phát hiện thấy tài liệu xấu hoặc tài liệu có bản quyền xin hãy email cho chúng tôi.
Đã phát hiện trình chặn quảng cáo AdBlock
Trang web này phụ thuộc vào doanh thu từ số lần hiển thị quảng cáo để tồn tại. Vui lòng tắt trình chặn quảng cáo của bạn hoặc tạm dừng tính năng chặn quảng cáo cho trang web này.