👤
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 pentru vizita pe site-ul nostru dedicat Informatică. Sperăm că informațiile disponibile v-au fost utile și inspiraționale. Dacă aveți întrebări sau aveți nevoie de suport suplimentar, suntem aici pentru a vă ajuta. Ne face plăcere să vă revedem și vă invităm să adăugați site-ul nostru la favorite pentru acces rapid!


Ez Studiers: Alte intrebari