Решите пож по информатике язык программирования питон

убрать дублирующиеся элементы метод - int(a)

ответ: 432 см²

Объяснение:

Обозначим трапецию АВСD; BC||AD.  BC=b=11 см, AD=a=25 см

Опустим из вершины В высоту ВН.

Высота равнобедренной трапеции, опущенная из вершины тупого угла, делит основание на отрезки, меньший из которых равен полуразности оснований, больший - их полусумме. ⇒

АН=(25-11):2=7 см

DH=(25+11):2=18 см

ВС||AD, диагональ трапеции ВD- секущая. ⇒ ∠СВD=∠BDA (по свойству накрестлежащих углов)..  

ВD - биссектриса угла В, поэтому и ∠АВD=∠BDA. Углы ∆ АВD при основании BD равны, ⇒ ∆ АВD равнобедренный, АВ=АD=25 см.  

Из ∆ АВН по т.Пифагора ВН=24 ( стороны ∆ АВН из Пифагоровых троек).

Площадь трапеции равна произведению полусуммы оснований на высоту. Полусумма оснований DH=18 см

Ѕ(ABCD)=HD•BH=18•24=432 см²

Объяснение:

Program Randomizer;

Var a,b,i : Integer;

Const n = 5;//Кол-во попыток

 Begin  

  WriteLn('                Вас приветствует "Randomizer!™"');

  ReadLn;

  WriteLn('    Компьютер загадал число от 1 до 100, ваша задача отгадать его.');

  WriteLn('                   Приступим!(Нажмите Enter)');

  ReadLn;

  WriteLn('                         Введите число');

  i:= 1;

  a:=random(100);

  While ((b <> a) and (i < n + 1)) do //Программа не завершится, пока b не станет равной a или n (попытки) не закончатся.  

   Begin

    //If b > 100 then WriteLn('Ошибка - число превышает 100');//Нужно, чтобы при вылете ошибки программа не завершалась и попытки не уменьшались.

    ReadLn(b);

    If b = a then WriteLn('Вы угадали!') Else

    If ((b <> a) and (i <> n)) then WriteLn('Попробуйте другое число...') Else  WriteLn('          Попытки закончились! Перезапустите программу.');

    inc (i);

   End;

 End.