Ce oare nu e corect la sursa mea? Cine ma poate ajuta???
#308242

am citit pe forum;)) si nu imi da ceva bine... dar nu inteleg, cum s-ar putea face?

vreau si eu sa va intreb ceva... am facut sirul stirling... dar din pacate iau decat un test din toate... testul 6 mai precis.... puteti sa imi dati testul 1 sau 2 sa vad care e problema?

Cod:

s[1,1]:=1;  s[2,1]:=1; s[2,2]:=1;
for i:=3 to n do
begin
s[i,1]:=1;
for j:=2 to i-1 do
s[i,j]:=j*s[i-1,j]+s[i-1,j-1];
s[i,i]:=1;
end;

Editat de moderator: Foloseste tag-ul code cand postezi cod!

sigur sunt testele bune? sirul stirling arata pentru 5 3 varianta 25...

Editat de moderator: Nu posta in continuu, ci editeaza mesajele precedente daca sunt pe aceeasi tema.

multumesc. o sa vad:)

cum fac sa aflu cate numere sunt

Imi spune si mie cineva unde gasesc solutia de pe campion? ca imi apare arhiva goala. sau daca nu sa imi spuna si mie cineva cum as gasi o solutie de O(n^3)? O sa gasesc eu apoi calculele matematice necesare sa o fac in O(n^2)....

eu am trimis o formula si am luat 10 pct pe testul 9:D:D:D
write(g,((a*ct mod 9973)*ct1)mod 9973); unde ct= nr de div al lui b si ct1 = nr de div al lui b <10
*ct = nr de div al lui b-1:D,

[editat de moderator] Nu posta de doua ori consecutiv, de asemenea incearca ca postul sa aibe un sens.

Cine poate sa imi dea si mie un contra-argument la problema asta? va rog:D:D:D

Cod:

var n,t,i:longint;
    f,g:text;
begin
assign(f,'chiftea.in'); reset(f);
assign(g,'chiftea.out'); rewrite(g);
readln(f,t);
for i:=1 to t do
begin
readln(f,n);
if n=1 then writeln(g,'4')
else if n=2 then writeln(g,'6')
else begin
if n mod 2=0 then n:=n-1;
writeln(g,n+5);
end;
end;
close(f); close(g);
end.

ce se intampla cu compilatorul? daca scriu baza longint imi merge, iar daca scriu int64 imi da eroare de compilare

ms mult de tot iau 100 pct:*

pai pe cazul general vroiam sa stiu .... deki
(a*(a+1)/2) mod x =?

vreau si eu sa stiu ceva...e o solutie buna si asta in exemplul dat de voi?
3*4/2 modulo 7  = ((3 modulo 7+4 modulo 7)/2)modulo 7?

Cine imi spune si mie unde gresesc deoarece imi ia WA pe testul 6 si 9
Am incercat toate posibilitatile, dar nimik

Si cum vad care e testul 6?pls?

Care ma poate ajuta si pe mine??? La problema asta iau numai 90 pct pe freepascal :
Test     Timp executie     Memorie folosita     Mesaj    Punctaj/test
1   0ms   12kb   Raspuns corect!   10
2   0ms   8kb   Raspuns corect!   10
3   0ms   12kb   Raspuns corect!   10
4   4ms   8kb   Raspuns corect!   10
5   4ms   1136kb   Raspuns corect!   10
6   16ms   2180kb   Lungime incorecta!   0
7   32ms   4120kb   Raspuns corect!   10
8   32ms   3764kb   Raspuns corect!   10
9   32ms   4136kb   Raspuns corect!   10
10   32ms   3368kb   Raspuns corect!   10
Punctaj total   90

Vreau sa stiu si eu ceva..... la problema text ce am gresit de iau numai 70 pct?

Cod:

var ct,S,d:longint;
    i,c1:char;
    f,g:text;
    m:set of char;
begin
assign(f,'text.in'); reset(f);
m:=[];
for i:='a' to 'z' do
m:=m+[i];
d:=0;
ct:=0; s:=0;
for i:='A' to 'Z' do
m:=m+[i];
while (not eof(f)) do
begin
read(f,c1);
if eoln(f) then readln(f);
if [c1]*m<>[] then begin
d:=d+1;
inc(S);
end;
if (([c1]*m=[]) and (d<>0)) then begin inc(ct);
                                       d:=0;
                                 end;
end;
close(f);
assign(g,'text.out'); rewrite(g);
if ct=0 then writeln(g,'0')
else
writeln(g,S div ct);
close(g);
end.