BAI TAP VE SO NGUYEN TO

[r]

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

Bài 1:Cho trước số tự nhiên n Lập trình phân tích n thành tích 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, '=');

i:=2

While N>1 do Begin

if N div i = 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 số có phải số nguyên tố hay không? Program P3201;

Uses CRT; Var n, i: integer; Begin

write('Hãy nhập 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, ' hợp số'); End.

Bài :Tìm số lớn nhất sô Program So_lon;

Var

so1,so2,so3,so4,solon1,solon2,sol on:Integer;

Begin

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

Writeln('Cau truc If Then Else');

Writeln(' -');

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

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 so la: ',solon);

Writeln;

Writeln('Bam phim <Enter> de ket thuc');

Readln End

Bai Phân tích số 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(' -');

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');