👤
Dumitruandreea2
a fost răspuns

Sa se afiseze primele n numere prime.

Răspuns :

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

Alte intrebari