768 килобайт в одном байте
Var A,b,s,p:real;
begin
read (a b);
writeln ('s=', a*b);
writeln ('p=', 2*a+2*b);
end.
на примере прямоугольника
183 числа
Сама таблица в файле, по алгоритму составлена.
A - сумма цифр
B - минимальная из цифр
получается минимальное число, сумма цифр которого 13, а мин. цифра - 5.
Это 58.
Возможно эта. Таблица переводов первых из одной Ссч в другую