Помогите решить задачу по Паскалю!!!

[Аватар]

А мне почему-то 192. У кого-то из нас процессор с глюком

[Окса_на]

Сообщение от Аватар

А мне почему-то 192. У кого-то из нас процессор с глюком

Наверно у препода щас тогда дома посмотрю)) попробую)) Спасибчики )))

[Окса_на]

Сообщение от Аватар

А мне почему-то 192. У кого-то из нас процессор с глюком

А вы не пробовали от меньшего вычесть большое число?))

[Аватар]

Дык не предусмотрено. Ответ

Получилось отрицательное число!

[Окса_на]

Сообщение от Аватар

Дык не предусмотрено. Ответ

Ну почему то и дома у меня выдает не правильный ответ, я наверно поднадоела вам, но не сможете подсказать как вы все прописываете и у вас выходит правильно?)))

[Окса_на]

Сообщение от Аватар

Дык не предусмотрено. Ответ

Аааааааа, все получилось, спасибо огромное))))

[Окса_на]

Сообщение от Аватар

Дык не предусмотрено. Ответ

Еще вопрос, подскажите как прописать на выводе вместо "получилось отрицательное число" чтоб вывел мне именно ответ с минусом (-192)?

[Аватар]

  if p<0 then begin
    Val('1'+StringOfChar('0',Length(n1)),t1,code1);
    Val(n, t2, code2);
    Str(t1-t2,n);
    WriteLn('Результат = -',n);
  end
  else
    Writeln('Результат = ',n);

УПС, забыл что тут длинная арифметика. Так не пойдет. Нужно сначала определить большее, из большего вычитать меньшее и добавить минус, если большее второе

[Окса_на]

Сообщение от Аватар

  if p<0 then begin
    Val('1'+StringOfChar('0',Length(n1)),t1,code1);
    Val(n, t2, code2);
    Str(t1-t2,n);
    WriteLn('Результат = -',n);
  end
  else
    Writeln('Результат = ',n);

УПС, забыл что тут длинная арифметика. Так не пойдет. Нужно сначала определить большее, из большего вычитать меньшее и добавить минус, если большее второе

Спасибоооооооо, я сдала зачет))) огромное при огромное вам благодарчик))))

[Аватар]

А как же более 15 знаков? Мой код из #28 не прокатит. Препод лопух