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