FORUM
Pagina de start a forumului eggzit.3xforum.ro
|
Nou pe simpatie:
Andreea_K
 | Femeie
25 ani
Caras Severin
cauta Barbat
30 - 49 ani |
|
|
FORUMReguliInregistrareLoginPozeNu sunteti logat. Lista Forumurilor Pe Tematici
|
| #1 |
 eggzitUsername: 6R9PKQUKKU
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.
|
|
| |
|
