165*165/8/1024 = 3,3233642578125
4 кбайт / 3,3233642578125 = 1,2035996326905417814508723599633 бит на пиксель.
2^1,2035996326905417814508723599633 = ~ 2 цвета
100 точек 1 бит на каждую
100 бит информационный объем
<em>// PascalABC.NET 3.3, сборка 1549 от 17.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger; Writeln(n*' ',n)
end.
<u>Пример</u>
7
7
Var p real;
begin
readln(p);
if (p>40) and (x<60) then writeln ('Первая категория');
if (p>61) and (x<75) then writeln ('Вторая категория');
if (p>76) and (x<100) then writeln ('Третья категория');
readln;
end,