Перевести число 2004 в десятичной системе в восьмиричную систему. p.s. не получается поделить сразу же, остаток 4 появляется, я в

2004         250     31     3     делим на 8 (дробная часть отбрасывается без округления) 250*8     31*8     3*8   0*8 2000       248     24     0             далее вычитаем из первой строки     4             2        7     3     цифры   4   2   7   3  переписываем в обратном порядке   получаем ответ 2004(10) =3724(8)      

Program name; //имя программы uses crt; var  a: integer;     begin  write('введите сумму: '); readln(a);   if a < 2500    then write('подоходный налог составляет: 0 рублей от суммы ',a, ' рублей');         if (a < = 10000) and (a > = 2500)    then write('подоходный налог составляет: ', a*0.13 ,' рублей от суммы ',a, ' рублей');       if a > 10000    then write('подоходный налог составляет: ', (a-1300)*0.15 ,' рублей от суммы ',a, ' рублей');         readkey; end.

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