Вычислите радиус rb вписанной и радиус ro описанной около треугольника окружности, если заданы стороны треугольника a, b, c rb=s/p ro=a*b*c/4s где s-площадь, p-полупериметр треугольника

program dddd; uses crt; var a,b,c,i: integer; beginclrscr; c: =10; readln(a); while a < > 0 dobeginb: = a mod 10; if b < c then c: =b; a: = a div 10; end; writeln(c); readkey; end.

в одном часе 3600 секунд. за час произойдёт 3600*10^6 операций.

чтобы выполнить их на арифмометре (не завидую тому, кто решится так делать), потребуется

3600*10^6*10 секунд = 10^7 часов или примерно 1141 год