Sa se afiseze primele n numere prime.
Răspunsuri la întrebare
Răspuns de
0
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.
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.
dumitruandreea2:
putin mai simplu se poate?
Alte întrebări interesante
Franceza,
8 ani în urmă
Franceza,
8 ani în urmă
Matematică,
8 ani în urmă
Matematică,
9 ani în urmă
Limba română,
9 ani în urmă
Matematică,
9 ani în urmă
Matematică,
9 ani în urmă
Matematică,
9 ani în urmă