Question

Nhập 2 số m,n từ bàn phím, in ra các số nguyên tố từ m đến n. Nếu không có số nào thì in 'khong co'

Vd: 4 18

=> 5 7 11 13 17

8 10

=> khong co

Answer 1

Var

m,n,i,j,h,dem:integer;

Begin

writeln('Hay nhap m:');

readln(m);

writeln('Hay nhap n:');

readln(n);

if m<n

for i:=m to n do

if i>0 Then
begin
Writeln('Cac so nguyen to tu 2 den ',n,' la:');
for j:=2 to i Do
begin
dem:=0;
for h:= 1 to j do if j mod h=0 then dem:=dem+1;
if dem=2 then write(j,' ');
end;

readln;

end.

Answer 2

program goodcmnr;

uses crt;

var m,n: integer;

i,j: integer;

begin

clrscr;

writeln('Nhap so m: '); read(m);

writeln('Nhap so n: '); read(n);

if m<n then

begin

for i:=m to n do

begin

j:=m;

if j>1 then

j:=2;

while (i mod j <> 0) do i:=i+1;

if j = i then write(i,',');

end;

else write('khong co');

end;

else writeln('khong co');

Readln

End.