Question

Utilizand tip de date tablou (array), elaborati program care realizeaza algoritmul lui eratostene pentru calcularea numerelor prime mai mici decit un numar nat. dat n (n<=200) (in TURBO PASCAL!!!)

Answer 1

Pai daca tia dat problema despre algoritmul lui eratostene, deci trebuie sa stii ce reprezinta el.

In general folosim un vector de frecventa iar la fiecare numar eliminam divizorii sai, in final afisind argumentele care au valoare ne eliminata.

var

 a:array[2..200] of integer;
 i,j,n:integer;
 
begin

 read(n);
 
 for i:=2 to n do
  a[i]:=1;
  
 for i:=2 to n do
  for j:=2 to n div i do
   a[i*j]:=0;
   
 for i:=2 to n do
  if a[i]<>0 then
   write(i,' ');

end.