FORUM
Pagina de start a forumului eggzit.3xforum.ro
|
Lista Forumurilor Pe Tematici
|
FORUM | Reguli | Inregistrare | Login
POZE FORUM
Nu sunteti logat.
|
Nou pe simpatie:
simpatica_dorina din Arad
 | Femeie
25 ani
Arad
cauta Barbat
32 - 44 ani |
|
eggzit
Username: 6R9PKQUKKU
 Inregistrat: acum 20 ani
Postari: 215
|
|
{n si m nr intregi sa se construiasca si sa se
afiseze nr de nr obtinut astfel:
sirul contine exact n valori,incepand cu valoarea m}
program douasase;
type vector=array[1..50] of integer;
var v:vector;
i,n,m:integer;
procedure sir(var v:vector; n,m:integer);
var x,i,f,p:integer;
begin
i:=0;
while i<n do begin
i:=i+1; v[i]:=m;
f:=2; x:=m;
while (x>1)and (i<n) do begin
p:=0;
while x mod f=0 do
begin x:=x div f;p:=p+1;
end;
if p<>0 then
begin i:=i+1; v[i]:=f;
end;
f:=f+1;
end;
m:=m+1;
end; end;
begin
write('n='); readln(n);
write('m='); readln(m);
sir(v,n,m);
for i:=1 to n do write(v[i],' ' );
writeln;
readln; end.
|
|
| pus acum 18 ani |
|