Kiểm tra xem một số a có phải số nguyên tố bằng chương trình con
Giải
Program iuyou;
Uses crt;
Var a, n, i: Integer;
Function nt (a, n, i: Integer) : Integer;
For i: =1 to n-1 do begin
If n mod i <>0 then a: =1 else a: =0;
End;
If a: =1 then writeln (n, ' la so nguyen to') else writeln...