Question

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

Answer 1

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.