45,68,145 перевести из 8-й системы счисления, в десятичную

Question

Информатика: 45,68,145 перевести из 8-й системы счисления, в десятичную

npodolskaa191 · Accepted Answer

Var
i,i_beg,i_end,k:longint;
p:set of longint;
begin
Writeln('Вводите целые числа большие двух, конец ввода по числу 0');
i_beg:=1000000; i_end:=0;
repeat
    Read(k);
    if k<>0 then
    begin
      if i_beg>k then i_beg:=k
      else if i_end<k then i_end:=k;
      Include(p,k)
    end
until k=0;
Writeln('Числа, не входящие в последовательность:');
for i:=i_beg to i_end do
      if not (i in p) then Write(i,' ')
end.

Тестовое решение:
Вводите целые числа большие двух, конец ввода по числу 0
6 12 9 14 10 19 17 11 7 0
Числа, не входящие в последовательность:
8 13 15 16 18

MOGZ ответил