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

BAI TAP VE SO NGUYEN TO Bài 1:Cho trước số tự nhiên n.. Lập: trình phân ch n thành tích các thừa sô nguyên tô.

BAI TAP VE SO NGUYEN TO

Bài 1:Cho trước số tự nhiên n Lập:

trình phân ch n thành tích các thừa

sô nguyên tô

Program P3203;

Uses CRT;

Var N, i: word;

Begin

write(' Cho số tự nhiên N: '); readln(N);

writeln(N, '=');

¡:=2

While N>] do

Begin

if N div i = 0 then

Begin

write(i, '*');

N-= N div i;

end

else

inc(i);

end;

readln;

End

Bài 2Hãy lập trình nhận biết một số

có phải là sô nguyên tô hay không?

Program P3201;

Uses CRT;

Var n, i: integer;

Begin

write('Hãy nhập một số tự nhiên: ); readIn(n);

i:=2;

While (i<= SORT(n)) and (n mod i>0)

do inc(i);

if i> SORT (n) then writeln(n, 'la so nguyén to ') else

writeln(n, ' là hợp số');

End

Bài 3 :Tìm số lớn nhất trong 4 sô

Program So_lon;

Var

sol,so2,s03,s04,solonl,solon2,sol on: Integer;

Begin

Writeln('TIM SO LON NHAT TRONG 4 SO NGUYEN');

Writeln('Cau truc If Then Else');

Writeln(' -

—'}7

Write('-Nhap so thu nhat: ');

Readln (so1l);

Write('-Nhap so thu hai : ');

Readgln(so2);

Write('-Nhap so thu ba : '); Readln (so3) ;

Write('-Nhap so thu tu: '); Readln(so4);

If sol > so2 Then

solonl:= sol

Else

Solonl:=so2;

If so3 > so4 Then

solon2:=so3

Else

solon2:=so4;

If solonl > solon2 Then

solon:=solonl Else

solon:=solon2;

Writeln;

Writeln('+So lon nhat trong

4 so la: ',solon);

Writeln;

Writeln('Bam phim <Enter>

de ket thuc');

Readin

End

Bai 4 Phân tích sô ra thừa sô nguyên

tô

Program thuaso;

Var

n,i:Integer;

Begin

Writeln('PHAN TICH N THANH TICH CAC THUA SO NGUYEN TO');

Writeln(' - eee ee EE EEE EEE ');

Write('-Nhap so N= ');

Readin (n) ;

Repeat

1:=2;

While (n Mod i <> 0Ô) And (i

<n} Do

1:=1 + H1;

Write(1:4);

n:=n Div i;

Until n=1;

Writeln;

Writeln(' Bam phim <Enter>

de ket thuc');

Readln

End