| Subiectul anterior :: Subiectul urmator |
| Autor |
Mesaj |
AmantuLuMata
Elev
Data inscrierii: 20/Mar/2008
Mesaje: 4
|
 Trimis: 20.03.2008 18:43 Titlul subiectului: Problema 26 |
|
|
type vector=array[1..25] of integer;
var v: vector;
i,n:integer;
functin max(x:integer):integer;
var p, d:integer;
begin
d:=2; p:=0;
repeat
if (x mod d=0) then begin p:=p+1; x:=x div d; end
else d:=d+1;
until x=1;
max:=p; end;
begin
read(n);
for i:=1 to n do read(v[i]);
a:=max(v[1]);
for i:=2 to n do if a<max(v[i]) then a:=max(v[i]);
write(a);
end.
ps. Paul am incredere in tine ca le poti scrie mai frumos...nu am avut chef de mai bine:) |
|
| Sus » |
|
 |
Irragal
Administrator
Data inscrierii: 15/Mar/2008
Mesaje: 13
|
| Trimis: 21.03.2008 15:03 Titlul subiectului: |
|
|
Textul problemei:
| Citat: |
Scrieþi un program care citeºte de la tastaturã un numãr natural n (0≤n≤25) ºi un ºir de n numere naturale cu cel mult patru cifre fiecare. Programul va determina ºi afiºa pe ecran numãrul mare de factori primi care poate sã aparã în descompunerea în factori primi a numerelor din ºir.
De exemplu dacã n=4 iar numerele citite sunt : 24 15 3 29 , atunci rezultatul afiºat este 2.
|
Eu n-am inteles aici daca trebuie sa scrii numarul maxim de factori sau factorul care apare de cele mai multe ori. Tu ai facut pentru prima si iti afiseaza 4 pentru sirul dat (daca declari a si scrii perfect 'functin' :P ) in loc de 2. Din sirul ala 24 se descompune ca 2*2*2*3, deci 2 apare de 3 ori.
Uite cum am facut eu. Nu am dat sigiliul pentru ca nu stiu cum e corect.
| Cod: |
program prob26;
var i, n, f, o, x, fmax, omax:integer;
procedure factori(x:integer; var fac, ori:integer);
var p, d:integer;
begin
d:=2; fac:=0; ori:=0;
repeat
p:=0;
while x mod d = 0 do begin p:=p+1; x:=x div d end;
if p>ori then begin ori:=p; fac:=d end;
d:=d+1
until x = 1
end;
begin
write('n='); readln(n);
fmax:=0; omax:=0;
for i := 1 to n do
begin
readln(x);
factori(x,f,o);
if o>omax then begin fmax:=f; omax:=o end
end;
write(fmax)
end. |
|
|
| Sus » |
|
|
AmantuLuMata
Elev
Data inscrierii: 20/Mar/2008
Mesaje: 4
|
| Trimis: 21.03.2008 17:27 Titlul subiectului: |
|
|
| am tastatura busita de asta scriu nasol..nu prea verific, si in legatura cu problema proba mia zis ca e ok atunci cand am mers la ea pt verificare |
|
| Sus » |
|
|
oClasaAnonima
Megaelev
Data inscrierii: 11/Apr/2008
Mesaje: 29
|
| Trimis: 13.04.2008 14:29 Titlul subiectului: |
|
|
| Cod: |
{scrieti un program care citeste de la tastatura un numar natural n (0<=n<=25)
si un sir de n numere normale cu cel mult patru cifre fiecare. programul va
determina si afisa pe ecran numarul mare de factori primi care poate sa apara
in descompunerea in factori primi a numerelor din sir.}
program ex26;
var n,x,d,s,i,max,p:integer;
begin
readln(n); max:=0;
for i:=1 to n do begin
readln(x);
d:=2;
s:=0;
repeat
p:=0; while x mod d=0 do begin
p:=p+1;
x:=x div d;
end;
if p>0 then s:=s+1;
d:=d+1;
until x=1;
if s>max then max:=s;
end;
write(max);
end.
|
|
|
| Sus » |
|
|
animalplanet2
Superelev
Data inscrierii: 12/Iul/2012
Mesaje: 5
Localitate: Poland
|
| Trimis: 29.07.2012 01:43 Titlul subiectului: |
|
|
| I red your post and tell my mother about it! And she sad @good post my sun! Don’t stop read this info and don’t forget about future of our planet)))@ |
|
| Sus » |
|
|
|
