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 .