Discussion @ 1243. Divorce of the Seven Dwarfs @ Timus Online Judge

В чем проблема. Подскажите пожалуйста.

Posted by Виктор Крупко 25 Mar 2005 01:21

{$N+}
program de;
var
n,l:extended;
j:integer;
begin
   read(n);
   if n>6 then
   repeat
   l:=1;
   repeat
   l:=l*7;
   until n<l*7;
   n:=n-l;
   until n<7;
   j:=round(n);
   write(j);
end.

Extended is not enough to store 10^50. P.S. Write in English, please (-)

Posted by Dmitry 'Diman_YES' Kovalioff 25 Mar 2005 08:05

Re: Extended is not enough to store 10^50. P.S. Write in English, please (-)

Posted by Виктор Крупко 26 Mar 2005 01:45

Thank you!!!!! What limit Extended?

Discussion of Problem 1243. Divorce of the Seven Dwarfs