===== PascalABC.NET =====
begin
var a := ArrRandom(30, 0,1000);
a.Println;
a.Count(p -> p.InRange(10, 99) and (p mod 10 > p div 10)).Println
end.
Var
a, b, c : real;
begin
read (a, b, c);
if (a = b) xor (b = c) xor (a = c) then // если только одно из равенств верно
write (sqr (a), ' ', sqr (b), ' ', sqr (c))
else write (a, ' ', b, ' ', c);
end.
Кол-во символов = 10*35*79 = 27650;
8 бит = 1 байт;
объём реферата = 27650*1 байт = 27650 байт.
Представить систему как чёрный ящик - это значит указать её входы и выходы