Электронная промышленность Байтландии развивается и одна из компаний начала выпускать черно-белые квадратные экраны размером nXn пикселей.
Для экономии траффика был разработан специальный режим экрана, в котором при вызове
функции с параметрами row, col изменяется состояние всех пикселей в строке row и столбце col (то
есть черные пиксели становятся белыми, а белые черными). Пиксел на пересечении строки row
и col также меняет свое состояние.
Чтобы продемонстрировать возможности экономии траффика необходимо разработать последовательность вызовов функции для формирования определенного изображения. Изначально весь экран черный (все пиксели находятся в состоянии 0).
В первой строке входных данных записано число t - количество различных изображений, которые необходимо сформировать на экране. Затем описывается t блоков. Описание блока содержит число n - размер экрана, а затем n строк по n чисел 0 или 1 в каждой - изображение, которое
необходимо сформировать на экране.
В качестве ответа необходимо сформировать t блоков с параметрами вызова функции для формирования изображения на экране. Описание каждого блока должно состоять из числа k - количества вызовов функции для генерации изображения и k пар чисел row, col, задающих параметры
функции. Нумерация начинается с левого верхнего угла, с нуля.
t=3
t=7
Делим 65536 байт на 256 байт/сек. получаем 256 сек.
Мы узнали время. Теперь 512 бит переведем в байты [512/8=64] получим 64 байт. 64 байт умножаем на 256 сек. получаем 16384 байт, ответ на задачу.
Если требуется написать ответ к килобайтах, переведем 16384 байт в кбайты.
16384 делим на 1024 получаем 16 кбайт.
В ответе пишем: 16384 байт либо 16 кбайт, в зависимости от того, что от нас требуют написать.
Var
n,m,max,min:integer;
Begin
write('Введите число: ');
readln(n);
min:=9;
max:=0;
while n>0 do
begin
m:=n mod 10;
if m<min then min:=m;
if m>max then max:=m;
n:=n div 10; end;
writeln('Максимальное число: ',max);
writeln('Минимальное число: ',min);
End.
2)
var
i,count: integer;
n,s:string;
begin
writeln('Введите число: ');
readln(s);
writeln('Введите цифру: ');
readln(n);
for i:=1 to length(s) do
if(s[i]=n)then
count:=count+1;
writeln('Количество раз, когда встречается цифра = ',count);
end.