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:
just_iulia
 | Femeie
25 ani
Giurgiu
cauta Barbat
26 - 48 ani |
|
eggzit
Username: 6R9PKQUKKU
 Inregistrat: acum 20 ani
Postari: 215
|
|
{la admitere se dau n examene la primul examen
se obtine de la 0 la p1 puncte}
program douazeci;
var st,p:array[1..100] of integer;
n,i,m:integer;
f:text;
function suma(k:integer):integer;
var i,s:integer;
begin
s:=0;
for i:=1 to k do s:=s+st[i];
suma:=s;end;
procedure afisare(k:integer);
var i:integer;
begin
for i:= 1 to k do write(f,st[i],' ');
writeln(f);end;
procedure back(k:integer);
var j:integer;
begin
for j:=0 to p[k] do begin
st[k]:=j;
if (k=n) and (suma(k)>=m) then afisare (k)
else if k<n then back(k+1);
end; end;
begin
write('n='); readln(n);
write('m='); readln(m);
for i:=1 to n do begin
write('p[',i,']='); readln(p[i]);
end;
assign(f,'examen.txt');
rewrite(f);
back(1); close (f);
end.
|
|
| pus acum 18 ani |
|