tailieunhanh - Bài tập pascal : Lời giải, đáp án part 3

IP Pascal là trình biên dịch của ngôn ngữ lập trình Pascal cho hệ điều hành Micropolis DOS nhưng ngay sau đó đã chuyển sang CP/M để chạy trên dòng máy Z80. Đầu thập niên 1980, UCSD Pascal đã có phiên bản dành cho các máy Apple II và Apple III để có các phiên bản tương ứng thay thế trình thông dịch BASIC đi kèm với các loại máy này trong thời gian trước đó. | Bai program B3-9 uses crt var i n integer s longint begin clrscr writefNhap so n readln n writeln n 1 phan tu dau tien cua tap A s 0 for i 1 to n do begin s 2 s 1 writelnfSo thu I s end readln end. Bai program p3_10 uses crt const max 100 var a duong am nguyento hopso array of integer Ỉ j k m n p q integer ngto boolean begin clrscr nhap n so write Nhap so n readln n for i 1 to n do 91 begin writefSo thu i readln a i end dem m 0 so so duong k 0 so so am p 0 so so nguyen to q 0 so hop so for i 1 to n do begin if a i 0 then so am begin k k 1 am k a i end if a i 0 then begin m m 1 duong m a i ngto true for j 2 to trunc sqrt a i do if a i mod j 0 then hop so begin ngto false q q 1 hopso q a i break end if ngto and a i 1 then nguyen to begin p p 1 nguyento p a i end end end 92 Viet ket qua so duong if m 0 then begin writelnfCom so duong for i 1 to m do writelnfSo duong thu i duong i end else writelnfKhong co so duong nao so am if k 0 then begin writelnfCok so am for i 1 to k do writelnfSo am thu i am i end else writelnfKhong co so am nao so nguyen to if p 0 then begin writeinfCop so nguyen to for i 1 to p do writelnfSo nguyen to thui nguyentofi end else writelnfKhong co so nguyen to nao hop so if q 0 then begin writelnfCoq hop so for i 1 to q do writelnfHop so thu Ỉ hopso i end else .

• Kỹ thuật lập trình
• giáo trình pascal
• bài giảng giáo trình pascal
• tài liệu giáo trình pascal
• đề cương giáo trình pascal
• bài tập giáo trình pascal
• mứng dụng Turbo Pascal
• tài liệu Turbo Pascal
• giáo trình Turbo Pascal
• bài giảng Turbo Pascal
• Turbo Pascal
• kỹ thuật lập trình Turbo Pascal
• ứng dụng Turbo Pascal
• Kinh nghiệm sử dụng
• Lập trình căn bản
• Ngôn ngữ lập trình
• Kỹ thuật pascal
• Tài liệu về pascal
• Ngôn ngữ pascal
• Lập trình pascal
• Giáo trình pascal căn bản