Обсуждение @ 1012. K-ичные числа. Версия 2 @ Timus Online Judge

please look

Послано zzzlll 3 янв 2007 22:01

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.

Re: please look

Послано Slam [Tartu U] 3 янв 2007 22:10

longint is not enough

whow

Послано zzzlll 3 янв 2007 22:13

but how i can do array with extended???

please look giving wrong answer in 6

Послано zzzlll 3 янв 2007 22:20

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.

Re: please look

Послано ☞ⓩⓢⓨⓩ™ⓣⓔⓢⓣ☜ 22 мар 2009 12:31

竟让可以打中文？？！！》》》》》》》

Re: please look

Послано zsyzhbc_china 22 мар 2009 12:40

滚一边玩去

Обсуждение задачи 1012. K-ичные числа. Версия 2