Задача будет выполняться при соблюдении условия. Необходимо вводить 2 числа. Это необходимо что бы определить, является ли число целым. (числа нужно вводить одинаковые.
var y,c:real;
a,b:integer;
begin
writeln('Введите 2 одинаковых числа');
readln(a,b);
c:=a/b;
if (a>b) or (a<b) then
y:=c/2
else
y:=c*10;
writeln(y);
<span>end.</span>
Ответ:
Создается константа nmax, равная 15
Создается переменная a, типа двумерного массива типа integer
Создаются переменные n, i, j, jmax типа byte
Создается переменная buf типа integer
Задается размерность, не больше nmax (то есть 15), и помещается в переменную n
Выводится исходная матрица, через 2 цикла, тк двумерный массив.
Дальше преобразуется матрица
Опять таки в двух циклах.
Выводится на экран и всё.
Какое ко-во информации для кодирования цвета 1ого пикселя - 24 бита
бит
=13+4*4=29с
=32с