Запускаю и вижу:
Heap dump by heaptrc unit
0 memory blocks allocated : 0/0
0 memory blocks freed : 0/0
0 unfreed memory blocks : 0
True heap size : 0
True free heap : 0
Вопрос: что я делаю не так?
Код:
Код: Выделить всё
procedure input(var x,y:longint);
var f:text;
begin
assign(f,'ievaddati.txt');
reset(f);
readln(f,x,y);
close(f);
end;
procedure output(var x:int64);
var f:text;
begin
assign(f,'izvaddati.txt');
rewrite(f);
writeln(f,x);
close(f);
end;
var a:array[1..100]of int64; k,n,i,j:longint;
begin
input(n,k);
a[1]:=1;
for j:=1 to n-k+1 do
for i:=2 to k+1 do
a[i]:=a[i]+a[i-1];
output(a[i]);
end.П.с. за ранее спасибо!
