ОЧЕНЬ , 1)Напишите условие на любом языке программирования для проверки попадания введенной точки А(x,y) в невключающую границы область, ограниченную функциями f1(x)=ln(x), f2(x)=x/2 + 1 и окружностью радиусом 2 и центром в точке (2,0) 2) Сколько ГБ будет занимать видеофайл, с разрешением 1024*860, длительностью 60 секунд с частотой 48 кадров в секунду и 56 битами на кодирование одного пикселя?
3) Инопланетяне с планеты Ромул используют трёхтритное кодирование для латинских букв и некоторого количества дополнительных символов( А=000, В=001, С=002, D=010 и тд) в то время, как инопланетяне с планеты Рема-четырехтритное( А=0000, В=0001, С=0002, D=0010 и тд). В день Х Ремцы отправили Ромуланам некоторое сообщение, которое распознали как «HAMNCUJIBAYVCSGI” . Что за сообщение отправили жители Рема?
var ar:array[1..10] of integer;
max,i:integer;
begin;
randomize; //чтобы random() работал как надо
writeln('Array');
for i:=1 to 10 do
begin;
ar[i]:=random(-10,10); //случайное число от -10 до 10
write(ar[i]:4);
end;
for i:=1 to 10 do //"проходим" через весь массив
if (ar[i]<0) and (max<abs(ar[i])) then max:=abs(ar[i]);
{если элемент массива меньше нуля и его модуль больше максимума тогда записать модуль этого числа в максимум}
writeln;
writeln('Max:-',max); //выводим на всякий случай максимум
writeln('Final array:');
for i:=1 to 10 do //снова проходим по всему массиву
begin;
if ar[i]=-max then ar[i]:=0;
{если элемент равен отрицательному максимуму(мы брали модуль) присвоить ему 0}
write(ar[i]:4);
end;
end.