Uses crt;var a:integer; S,R,r2,P:real;begin write ('Введите сторону a: '); readln (a); S:=((a*a)*sqrt(3))/4; R:=(a*sqrt(3))/3; P:=3*a; r2:=(a*sqrt(3)/6); writeln ('Площадь равностороннего треугольника: ',S:1:2); writeln ('Радиус описанной вокруг равностороннего треугольника окружности ',R:1:2); writeln ('<span>Радиус вписанной в равносторонний треугольник окружности</span>: ',r2:1:2); writeln ('Периметр равностороннего треугольника: ',p:1:2);end.
<span>Устройства ввода - клавиатура, мышь, сенсорный дисплей, стилус и тд</span>
0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20. Воть;) Хотя это не точно...
Сканер со слайд адаптером