Question

Viết chương trình tìm các số nguyên tố từ 10 đến n với n được nhập từ bàn phímm

Answer 1

Uses crt;
var i,dem,j,n:Integer;
Begin
write('Nhap so nguyen n');Readln(n);
if n>0 Then
begin
Writeln('Cac so nguyen to tu 10 den ',n,' la:');
for j:=10 to n Do
begin
dem:=0;
for i:= 1 to j do if j mod i=0 then dem:=dem+1;
if dem=2 then write(j,' ');
end;
end;
Readln;
End.

Answer 2

Uses crt;
var i,dem,j,n:Integer;
Begin
write('Nhap so nguyen n');ReadLn(n);
if n>0 Then
begin
WriteLn('Cac so nguyen to tu 10 den ',n,' la:');
for j:=10 to n Do
begin
dem:=0;
for i:= 1 to j do if j mod i=0 then dem:=dem+1;
if dem=10 then write(j,' ');
end;
end;
Readln
End.