Tham khảo tài liệu 'tự học lập trình pascal tập 2 part 10', 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 135 Readln i 0 End End End If vonghiem then Write Inf Ph ương trinh vô nghiệm Read In End. 14. Program P2814 Uses Crt Var a b array 1 . 100 of integer i j n byte ok boolean Begin Clrscr Write Nhập độ dàí của hai dãy sô nguyên n Readln n Writeln Lắn lượt nhập các phần tử của dãy thứ nhất For i 1 to n do Begin Writef a i 2 Readln a i End Writelnf Lần lượt nhập các phán tử của dãy thứ hai For ĩ 1 to n do Begin Writef b ĩ 2 - Readln b i End 136 Pascal dành cho học sinh ok true For i 1 to n do For j 1 to n do If a b j thẹn Begin ok-false Writeln a i End If not ok then Writeln Không có giá trị chung Readln End. 15. Program P2815 Uses Crt Var a b array 1 .100 of integer byte ok boolean Begin Clrscr Write Nhập độ dài cửa hai dãy số nguyên n Readln n Writeln Lần lượt nhập các phẩn tử của dãy thứ nhất For i 1 to n do Begin WriteC a i 2 Readln a i End Writelnf Lần lượt nhập các phần tử của dãy thứ hai For i 1 to n do Phần 2. HƯỞNG DẨN 137 Begin Writer br i 2 Readln b i End ok true Fur i 1 to n-1 do For j i 1 to n do If a i a j and b i b j then Begin ok true Writeln i i j j End If not ok then Writeln Không có Readln End. 16. Program P2816 Uses Crt Var n ij word nt stop boolean Begin Clrscr Write Nhập số nguyên N 2 Readln n stop -false For i n downto 2 do If n mod i-0 then Begin nt true For j 2 to i-1 .
