Var A:integer;
Begin
WriteLn('Введи число');
ReadLn(A);
if (A>9)and(A<100) then Write('Да')
else WriteLn('Нет')
End.
Var
A:integer;
Begin
WriteLn('Введи число');
ReadLn(A);
if A>9 then Begin
if A<100 then WriteLn('Да')
else WriteLn('Нет')
End
else WriteLn('Нет')
End.
Нажимаем кнопку Home и прыгаем на начало строки, на слово Для.
Два раза нажимаем Ctrl + стрелка вправо и попадаем на слово По.
Чёрный - 1, серебристый - 2, коричневый - 3, белый - 4.
1 - 1-2-3-4
2 - 1-2-3-4
3 - 1-2-3-4
4 - 1-2-3-4
Ответ: г) - 16.
Количество информации вычисляется по формуле log(2)10≈3,32
Создание и изменение растровых графических изображений