👤
Vladaursu1998zone
a fost răspuns

sa se alcatuiasca un program care ne-ar afisa toate numerele prime pina la N(N<10000, se citeste de la tastatura).

Răspuns :

functia prim (n):boolean;
    d:longint;
    x:byte;
d:=2; x:=0;
while d<sqrt(n) do
  begin
     if n mod d = 0 then x:=x+1;
     d:=d+1;
  end;
if x=0 then prim:= true
         else prim:= false;

Programul principal:

i:longint;

for i:=1 to n do
     if prim(i) then write(i, ' ');

Cam atat.
Vă mulțumim că ați vizitat site-ul nostru web care acoperă despre Informatică. Sperăm că informațiile furnizate v-au fost utile. Nu ezitați să ne contactați dacă aveți întrebări sau aveți nevoie de asistență suplimentară. Ne vedem data viitoare și nu ratați să marcați.


Zone Alte intrebari