👤
a fost răspuns

se citeste de la tastatura un nr nat "n".Afisati numerele prime din intervalul 1-n
(cu instructiunea "for")

Răspuns :

var i,k,n,x:integer;

begin

read(n);

for k := 1 to n do begin
 
 x := 0;
 
 for i := 1 to k do
  if k mod i = 0 then inc(x);
 
 if x = 2 then write(k, ' ')
 
 end;

end.
Vă mulțumim că ați accesat site-ul nostru dedicat Informatică. Sperăm că informațiile furnizate v-au fost utile. Dacă aveți întrebări sau aveți nevoie de asistență suplimentară, nu ezitați să ne contactați. Vă așteptăm cu drag să reveniți și nu uitați să ne salvați la favorite!


Ze Studies: Alte intrebari