cái này hỏi anh Nguyễn Lê phước Thịnh2 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 nvd: nhập 7->in 2 3 5 7b)in số nguyên tố lớn nhất ko bé hơn nvd: n=7 thì in ra 7 n=10 thì in ra 11c) 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 55 77 1111 1313 1717...
Đọc tiếp
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
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.