|
|
вернуться в форумwhy in here wrong answer in 6 var c:array[0..50] of integer; n,m,i ,fn:longint; begin readln(n,m); c[0]:=1; c[1]:=m-1; for i:=2 to n do c[i]:=(m-1)*(c[i-1]+c[i-2]); writeln(c[n]); end. longint is not enough but how i can do array with extended??? var c:array[0..180] of real; n,m,i ,fn:longint; begin readln(n,m); c[0]:=1; c[1]:=m-1; i:=1; repeat i:=i+1; {for i:=2 to n do } c[i]:=(m-1)*(c[i-1]+c[i-2]); until i>=n; writeln(c[n]:0:0); end. |
|
|