<span>Для черно-белого </span>изображения информационный объем<span> одной
точки равен 1 </span>биту, значит 10*10=100бит
1)Windows XP\7\8\8.1\10
2)WinRar\7zip
3)Windows Defender\Kaspersky
4)Skype\RC\Teamviewer.
5)Turbo Basic\Quick Basic\Turbo Pascal\Turbo C.
6)WorldPad
7)Paint\Gimp.
8)Microsoft Power Point
9)Microsoft ExeL
10)Wiki
11)DirectX\Microsoft Visual C++
Знаком "\" отметил возможные варианты,можешь выбрать любой из приведённых.
200 бит.............................
<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var x := ReadReal;
if x < 10 then Print('Число меньше 10')
else
if x = 10 then Print('Число равно 10')
else Print('Число больше 10')
end.
Var a,b, d:integer;
begin
read (d);
a:=d div 100;
b:=d div 10 mod 10;
if a>b then Write ('перша більша') else Write ('друга більша')
end.