// PascalABC.NET 3.0, сборка 1076
begin
var s:='SCHOOL555INFORM';
Writeln('Пароль: ',s.Distinct.Take(6).JoinIntoString(''))
end.
<em><u>Результат выполнения программы:</u></em>
Пароль: SCHOL5
Делим фигуру на 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 см
1)
12 > 34? Неть.
М = 34 + 34 = 68
2)
А = 4? Неть => А = 2*2 = 4
А = 4? Да => A = 4 + 1 = 5