какой вид графики нужно использовать для ретуширования реставрирования фотографий создания и обработки фотомонтажа коллажей

   416.32
+ 255.71

   674.23

Поясню, как выполнять сложение в восьмеричной системе счисления (8 с/с). Основание 8 с/с - число 8 - на 2 меньше основания привычной нам десятичной системы. Вследствие этого, в 8 с/с мы переходим к следующему разряду (от единиц к десяткам, от десятков к сотням и т.д.) НА ДВА РАНЬШЕ (потому что, как написано выше, 10-8=2), чем в десятичной.

Что это означает практически? Это означает, что любое число, большее или равное 8, в 8 с/с должно быть УВЕЛИЧЕНО НА 2. Т.е. 2+7 равно не 9, а 9+2=11, 3+9 равно не 12, а 14 и т.п.

Вернемся к исходному примеру. Начинаем с единиц. 2+1=3. Ничего не меняем, пишем 3. 3+7=10, больше 8, поэтому прибавляем 2 и получаем 12. Пишем двойку, а единицу, как обычно при сложении "в столбик", переносим в следующий разряд. 6+5=11, больше 8, прибавляем 2 и получаем 13. Плюс единица, пришедшая из предыдущего разряда, итого 14. 4 пишем, единицу - в следующий разряд. 5+1=6, плюс единица от переноса, итого 7. Меньше 8, поэтому так и пишем. И последнее, 4+2=6, меньше 8, записываем 6. Пример решен.

1:

var s:longint;

   i,n:byte;

begin

   write('Введите количество членов ряда: '); readln(n);

   for i:=1 to n do s:=s+sqr(i*5);

   write(s);

end.

2:

var v:longint;

   i,n:real;

begin

   write('Введите первоначальный объём (л): '); readln(v);

   n:=30;

   i:=2.5;

   while i <= n do begin

       v:=2*v;

       i:=i+2.5;

   end;

   write('Через 30 часов будет ', v, ' литров');

end.

3:

var nf,mf:longint;

   i,n,m:byte;

begin

   nf:=1;

   mf:=1;

   write('Введите n: '); readln(n);

   write('Введите m: '); readln(m);

   for i:=1 to n do nf:=nf*i;

   for i:=1 to m do mf:=mf*i;

   write('n!+m!=', nf+mf);

end.

4:

var x,s:integer;

   c:byte = 0;

begin

   while true do begin

       write('Введите число (0 для выхода): '); readln(x);

       if x = 0 then break;

       if x < 0 then begin

           s:=s+x;

           inc(c);

       end;

   end;

   if c = 0 then write('Ни одного отрицательного числа не было введено')

   else write('Среднее арифметическое отрицательных значений равно: ', s/c:0:2);

end.

5:

var x,s:integer;

begin

   while true do begin

       write('Введите число (0 для выхода): '); readln(x);

       if x = 0 then break;

       if (x mod 2 = 0) and (x > 0) then s:=s+x;

   end;

   if s = 0 then write('Ни одного чётного положительного числа не было введено')

   else write('Сумма чётных положительных чисел равна: ', s);

end.

6:

var a:Array[1..10] of integer;

   max_v:integer;

   i,max_i:byte;

begin

   a[1]:=random(100);

   max_v:=a[1];

   max_i:=1;

   write(a[1],' ');

   for i:=2 to length(a) do begin

       a[i]:=random(100);

       if a[i] > max_v then begin

           max_v:=a[i];

           max_i:=i;

       end;

       write(a[i],' ');

   end;

   if max_i <> length(a) then begin

       a[max_i]:=a[length(a)];

       a[length(a)]:=max_v;

   end;

   writeln();

   for i:=1 to length(a) do write(a[i], ' ');

end.