Prt Sc клавиша.
Потом просто вставляешь картинку
12121
Решение:
7*2=14
14-2=12
12*2=24
24-2-22
22*2=44
Log(14)/log(2) = 3,8073549220576 ~= 4 бит на один номер
Обьем сообщения = 4 * 10 = 40 бит = 5 байт
Ответ:
var
Dat: array [1..10] of Integer = (70, 80, 90, 100, 80, 40, 40, 70, 80, 90);
i, m, k: Integer;
begin
k := 1;
m := dat[k];
WriteLn (' k, m, i, Dat[k]<m');
for i := 2 to 10 do begin
if Dat [i] < m then begin
m := Dat [i];
k := i;
end;
WriteLn (k:3, m:3, i:4, ' ', Dat[i]<m);
end;
writeln ('m = ', m);
writeln ('k = ', k);
ReadLn;
end.
Объяснение:
трассировочная таблица на скриншоте
В Паскале чтобы вывести вместо переменной текст, или чтобы присвоить строковой переменной значение используется не двойная, а одинарная кавычка - '