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

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 .

crossorigin="anonymous">
Đã 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.