Задания Анализ и синтез Проанализируйте работу инструментов графического редактора Photo-Brush. Запишите функцию каждого инструмента. Сравните инструменты рисования Photo-Brush и Paint.NET. Выявите сходства и различия. ​

На этом этапе стоит определиться с, так называемой, длиной информационного слова, то есть длиной строки из нулей и единиц, которые мы будем кодировать. Допустим, у нас длина слова будет равна 16. Таким образом, нам необходимо разделить наше исходное сообщение («habr») на блоки по 16 бит, которые мы будем потом кодировать отдельно друг от друга. Так как один символ занимает в памяти 8 бит, то в одно кодируемое слово помещается ровно два ASCII символа. Итак, мы получили две бинарные строки по 16 бит:

Задача 1

Program Zadanie1;

var i,N:integer;

A:array[1..4]of integer;

Begin

readln(n);

A[1]:=round(int(N/1000));

A[2]:=round(int(N/100))-A[1];

A[3]:=round(int(N/10))-A[1]-A[2];

A[4]:=N-A[1]-A[2]-A[3];

if (A[1]:=A[4]) and (A[2]:=A[3]) and (A[3]:=A[2]) and (A[4]=A[1]) then writeln('полином');

end;

Задача 2

Program Zadanie2;

var i,N:integer;

A:array[1..3]of integer;

function Kub(a):integer;begin Kub:=a*a*a;end;

Begin

readln(n);

A[1]:=round(int(N/1000));

A[2]:=round(int(N/100))-A[1];

A[3]:=N-A[1]-A[2]-A[3];

if N*N=kub(A[1])+kub(A[2])+kub(A[3]) then writeln('равенство');

end;