Viết chương trình cho phép nhập từ bàn phím một số nguyên dương n và thực hiện: a. In ra các số nguyên tố bé hơn hoặc bằng n. Ví dụ: n = 7 thì in 2; 3; 5; 7. b. In ra số nguyên tố nhỏ nhất không bé hơn n. Ví dụ: n = 7 thì in ra 7. n = 10 thì in ra 11. n = 24 thì in ra 29. c. In ra các cặp số nguyên tố là hai số nguyên lẻ liên tiếp nhỏ hơn hoặc bằng n. Ví dụ: Nhập n = 20 thì in ra: 3, 5 5, 7 11,13 17,19

1 câu trả lời

ar 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âu hỏi trong lớp Xem thêm