И все же Опции

[The Boogie Woogie Blaster]

Код

procedure MulLongShort(a:Plong;const k:longint;c:Plong);
var i:integer;
begin
 fillchar(c^,sizeof(c^),0);
 if k=0 then inc(c^[0]) else
    begin
       for i:=1 to a^[0] do
          begin
             c^[i+1]:=(longint(a^[i])*k+c^[i]) div _osn;
             c^[i]:=(longint(a^[i])*k+c^[i]) mod _osn;
          end;
       if c^[a^[0]+1]>0 then c^[0]:=a^[0]+1 else c^[0]:=a^[0];
    end;
end;

при 0<=k<=_osn гарантированно работает правильно ,
при _osn+1<=k<=67479 вроде тоже правильные ответы выдает (проверьте кто нить при всех ли)
при k>=67480 во время исполнения проги возникает range check.

Бог ты мой неужели это Паскаль? Неужели эту задачу нельзя решить как-нибудь попроще?

[Altair]

1. что значит

неужели это Паскаль?

2.

Неужели эту задачу нельзя решить как-нибудь попроще?

Эту задачу следует решить так (во всяком случае здравый смысл подсказывает)
из строки перевести число в длинное число (длинночсиленная арифметика)и делать с ним что угодно.

Прошу ответить на 1 вопрос.

------------------------------------------

ЧТО НЕ ПОНЯТНО?
Есть конкретные вопросы?
Если нет, "идите и читайте учебник!!!" (© Учитель мой так говорил)

p.s. И тему закрыли не для того, что бы вы открыли новую и снова с нарушением правил!!!!!