Question

bài 1: lập chương trình viết ra các số nguyên tố nhỏ hơn n

bài 2: lập chương trình xác định 1 số có phải là siêu nguyên tố hay ko

ai làm dc thì mk tick cho,mk đg cần gấp( nhớ dùng lệnh while)

Answer 1

Câu 1:mã chương trình:

var i,n,d,j:longint;
begin
        readln(n);
        for i:=2 to n do
           begin
                d:=0;
                for j:=2 to trunc(sqrt(i)) do
                        if i mod j =0 then d:=d+1;;
                if d=0 then writeln(i);
           end;
        readln;
end.

Câu 2: Mã chương trình:

var i,n,d,t:longint;
begin
        readln(n);
        if n<2 then write('ko phai snt')else
         begin
         t:=0;
             while n>0 do
                 begin
                        d:=0;
                        for i:=2 to trunc(sqrt(n)) do
                            if n mod i=0 then d:=d+1;
                        if d=0 then n:=n div 10 else begin
                                                        t:=1;
                                                        break; {thoat khoi lenh}
                                                end;
                 end;
             if t=1 then write('ko phai snt') else write('la snt');
         end;
        readln;
end.