Question

viết chương trình in ra tất cả số nguyên tố lớn hơn m nhỏ hơn n(m,n nhập từ bàn phím)

MIK CẦN GẤP

Answer 1

Program vct;

uses crt;

var

m,n,i:integer;

begin

writeln('moi nhap so n '); readln(n);

writeln('moi nhap so m '); readln(m);

for i:=m to n do write(i);

readln;

end.

Answer 2

program bai1;

var m,n,s:longint;

begin

write('M= ');readln(m);

write('N= ');readln(n);

for k:=(m+1) to (n-1) do

begin

s:=0;

for i:=1 to n do

if (k mod i=0) then s:=s+1;

if s=2 then write(k,' ');

end;

readln

end.

Answer 3

gán i,k nữa