1.56-12 равно 44см.сумма боковых сторон
2.44:2 равно 22см 1 и 2 сторона.
Как то так.
Доброе время суток. Так как у Вас написана программа - она работать не будет.
Чтобы сгенерировать положительные и отрицательные
значения запишите Random(-50,50);
участок программы сортировки я прикрепил в файле
если,1 байт = 8 бит,
86016/8 = 10752 байт
<span>10752 / 1024 = 10,5 Кбайта</span>
Var
A:integer;
Begin
WriteLn('Введите трёхзначное число');
ReadLn(A);
WriteLn((A div 100)+(A mod 10))
End.