Напечатать восьмеричное представление числа

[ANIRAM]

В одномерный массив введены цифры целого положительного числа М в восьмеричной системе счисления. Количество цифр в числе известно и дано N(N- не более 10). Напечатать восьмеричное представление числа М+7. Предусмотреть проверку правильности ввода информации. Спасибо)

[Serge_Bliznykov]

тю. Это же просто. сложение в столбик умеете выполнять?
а если к длинному числу нужно прибавить ОДНОзначное число - сумеете вычислить? (напишите на бумажке, как Вы прибавите к 98989899 число 7)

Вот эти и знания нужно использовать, только учитывая, что основание системы счисления равно 8).


ПРИМЕРНО так:

const MaxN = 10;
var 
   ODigits : array[1..MaxN+1] of integer;
   i, N, perenos : integer;
begin
   { тут ввод числа N - количество разрядов}
   WriteLn('Введите число N: '); ReadLn(N);
   Write('Введите цифры числа: ');
   ODigits[1] := 0;
   for i:=2 to N+1 do Read(ODigits[i]); 
   ReadLn;

   < проверку напишите самостоятельно >

   прибавить 7 к числу
   i:=N+1;
   perenos := 7;
   while (perenos>0) and (i>0) do begin
     ODigits[i] := ODigits[i] + perenos;
     perenos := ODigits[i] div 8; { 8 - основании СС} 
     ODigits[i] := ODigits[i] mod 8;  { 8 - основании СС} 
     dec(i)  {переходим к следующему разряду числа} 
   end;

   Write('полученное число: ');
   for i:=1 to N+1 do Write(ODigits[i]);
   WriteLn

end.

[ANIRAM]

Спасибо большое, просто я не совсем поняла, что от меня требуют)