Var i,max:integer;
a:array[1..40]of integer;
begin
max:=-1;
writeln('Введите значения членов массива');
for i:=1 to 40 do begin
readln(a[i]);
if (a[i] mod 8 =7) and (a[i]>max) then max:=a[i];
end;
if (max<>-1) then writeln('Максимальное число:',max) else writeln('Чисел по заданному параметру нет');
end.
uses crt;
var
n:integer;
begin
n:=0;
repeat
n:=n+3;
until keypressed;
write(n);
end.
1) 65536 = 2¹⁶ 16=2⁴
до преобразования для кодирования одной точки требовалось 16 бит, а после преобразования - 4 бита
16/4 = 4
Ответ: в 4 раза уменьшился объем используемой памяти
В D1 пиши: $A1+B$1+C$1 в низ по аналогии
Впиши в поисковик из одной системы счисления в другую и даст хороший удобный инструмент.
а) 4F (16) + 111110 (2) = 79 (10) + 62 (10) = 141 (10)
б) 5A (16) + 1010111 (2) = 90 (10) + 87 (10) = 177 (10)