Делим фигуру на 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 см
Var n,k,b : real;beginread (n);k:=0;b:=0;while n>0 do beginb:=(b+1)*(b+1);k:=k+b;n:=n-1;b:=sqrt(b);end;write (k);end.
Если на сайт, просто скопируй в паскаль
Решение в прикрепленном файле.