Делим фигуру на 2 прямоугольника.
1 треугольник: a=3,b=12;
2 треугольник: a=3,b=6;
Формула периметра: P=(a+b)*2
1) (3+12)*2= 15*2 = 30 (см)
2) (3+6)*2= 9*2 = 18 (см)
3) 30+18=48(см)
Ответ: P фигуры = 48 см
Интернет книга телевидение радио
Begin
var a:=ArrRandom(10,-150,250); a.Println;
var max := a.Max;
println('Максимальное = ', max);
a.Transform(t->t=max ? max*(-1):t);
a.Println;
end.
Не собачьи не кошачьи а медвежий
===== PascalABC.NET =====
begin
foreach var n in Range(100, 999) do
if n mod 81 = 0 then
Print(n)
end.