Bài 8. Lặp với số lần chưa biết trước

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
nguyễn an phát

cái này hỏi anh Nguyễn Lê phước Thịnh

2 viết chương  trình nhập 1 số n sau đó thực hiện:

a)in các số nguyên tố bé hơn hoặc bằng n

vd: nhập 7->in 2 3 5 7

b)in số nguyên tố lớn nhất ko bé hơn n

vd: n=7 thì in ra 7

      n=10 thì in ra 11

c) in các cặp số nguyên tố lẻ bé hơn hoặc bằng n                                             

vd:n=20 thì in ra:

3 5

5 7

7 11

11 13

13 17

17 19

3

Nguyễn Lê Phước Thịnh
19 tháng 3 2021 lúc 19:52

a)

uses crt;

var n,i,kt,j:integer;

begin

clrscr;

repeat

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

until n>1;

writeln('Cac so nguyen to be hon hoac bang ',n,' la: ');

for i:=2 to n do 

begin

kt:=0;

for j:=2 to i-1 do 

  if i mod j=0 then kt:=1;

if kt=0 then write(i:4);

end;

readln;

end.


Các câu hỏi tương tự
Lê Tâm Anh
Xem chi tiết
huỳnh duy cát
Xem chi tiết
nguyễn thị như ý
Xem chi tiết
Cự Giải
Xem chi tiết
nguyễn ngọc thúy vi
Xem chi tiết
HUY HUỲNH QUANG
Xem chi tiết
An Vy
Xem chi tiết
Vũ Duy
Xem chi tiết
Phan Thị Phương Thy
Xem chi tiết