Bài 1: Viết phương trình
-Đọc từ tập ‘BAITAP1.INP’ một số nguyên dương N bất kì. Kiểm tra xem số đó có phải là số nguyên tố hay không? nếu có hãy ghi ra màn hình thông báo’N la so nguyen to’ ngược lại thông báo ‘N khong la so nguyen to’.(số nguyên tố là số chỉ có 2 ước số là 1 và chính nó)
uses crt;
var n,i,d: integer;
f:text;
begin
clrscr;
assign(f,’baitap1.inp’);
reset(f);
read(f,n);
for i:=1 to n do
if n mod i=0 then inc(d);
if d=2 then writeln (n,’ la so nguyen to’)
else writeln (n,’ khong phai la so nguyen to’);
close(f);
readln;
end.
Pprogram bai_lam;
Uses crt;
Var dem,i,n: longint;
op:text;
Begin
Clrscr;
Assign(op,’baitap1.inp’);
Reset(op);
Read(op,n);
For i:=1 to n do
If n mod i=0 then dem:=dem+1;
If dem=2 then writeln (‘n trong tep la so nguyen to’)
Else writeln (‘n trong tep khong phai la so nguyen to’);
Close(op);
Readln;
End.