BÀI TẬP VỀ SỐ NGUYÊN TỐ











Ba
̀
i 1: !"#$
%$&'(')*+
,-. !
Program P3203;
Uses CRT;
Var N, i: word;
Begin
write(' Cho số tự nhiên N: '); readln(N);
writeln(N, '=');
i:=2
While N>1 do
Begin
if N div i = 0 then
Begin
write(i, '*');
N:= N div i;
end
else
inc(i);

end;
readln;
End.
Ba
̀
i 2 /0.1#$%#2345
6$71(,-. +.89,?
Program P3201;
Uses CRT;
Var n, i: integer;
Begin
write('Hãy nhập một số tự nhiên: );
readln(n);
i:=2;
While (i<= SQRT(n)) and (n mod i>0)
do inc(i);
if i> SQRT(n) then
writeln(n, 'là số nguyên tố ')
else
writeln(n, ' là hợp số');
End.
+

:;<

49

1=

&


,>9
Program So_lon;
Var
so1,so2,so3,so4,solon1,solon2,sol
on:Integer;
Begin
Writeln('TIM SO LON NHAT
TRONG 4 SO NGUYEN');
Writeln('Cau truc
If...Then...Else');

Writeln('------------------------
-');
Write('-Nhap so thu nhat: ');
Readln(so1);
Write('-Nhap so thu hai : ');
Readln(so2);
Write('-Nhap so thu ba : ');
Readln(so3);
Write('-Nhap so thu tu : ');
Readln(so4);
If so1 > so2 Then
solon1:= so1
Else
Solon1:=so2;
If so3 > so4 Then
solon2:=so3
Else
solon2:=so4;

If solon1 > solon2 Then
solon:=solon1
Else
solon:=solon2;
Writeln;
Writeln('+So lon nhat trong
4 so la: ',solon);
Writeln;
Writeln('Bam phim <Enter>
de ket thuc');
Readln
End.
+>&<

9

+

+9

,-. 
9

Program thuaso;
Var
n,i:Integer;
Begin
Writeln('PHAN TICH N THANH
TICH CAC THUA SO NGUYEN TO');

Writeln('------------------------
--------------------');
Write('-Nhap so N= ');
Readln(n);
Repeat
i:=2;
While (n Mod i <> 0) And (i
< n ) Do
i:=i + 1;
Write(i:4);
n:=n Div i;
Until n=1;
Writeln;
Writeln(' Bam phim <Enter>
de ket thuc');
Readln
End.