Quảng cáo
1 câu trả lời 1531
2 năm trước
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.
Quảng cáo
Câu hỏi hot cùng chủ đề
Gửi báo cáo thành công!