Question

Viết chương trình in ra các số nguyên tố nhỏ hơn n với yêu cầu dùng hàm để kiểm tra một số có phải là số nguyên tố hay không.

Answer 1

Program In_so_nguyen_to;

 

uses crt;

var  n, i: integer;

{——Ham kiem tra——-}

Function kiem_tra(n:integer):boolean;

var i: integer;

begin

kiem_tra:=true;

for i:=2 to n-1 do if (n mod i) = 0 then kiem_tra:=false;

end;

{——CTC—————-}

begin

clrscr;

write(‘Nhap n: ‘); readln(n);

for i:=2 to n do if kiem_tra(i) then write(i:3, ‘, ‘);

readln;

end.