//PascalABC.NET
//Версия 3.3, сборка 1611
begin
var (a,b,c):=ReadReal3();
write('S=',((a+b)/2)*sqrt(c*c-((a-b)*(a-b)/4)));
end.
// PascalABC.NET 3.3, сборка 1625 от 17.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
Writeln('a,b - большее и меньшее основания равнобедренной трапеции');
Writeln('с - боковая сторона этой трапеции. Вычисляется площадь S');
var (a,b,c):=ReadReal3('Введите a,b,c через пробел:');
var s:=(a+b)/2*Sqrt(c*c-Sqr(a-b)/4);
Writeln('S=',s:0:4)
end.
Пример
a,b - большее и меньшее основания равнобедренной трапеции
с - боковая сторона этой трапеции. Вычисляется площадь S
Введите a,b,c через пробел: 6 4.5 2.7
S=13.6171
Если тебя не устраивает ответ или его нет, то попробуй воспользоваться поиском на сайте и найти похожие ответы по предмету Информатика.
Найти другие ответыИнформатика, опубликовано 08.11.2018
В ячейку С6 записать формулу, которая выражение А4+А5-А6 делит на сумму чисел А7 и А8.
Информатика, опубликовано 08.11.2018
Напишите программу в паскале по этой блок-схеме. Умоляю
20 баллов
Информатика, опубликовано 08.11.2018
Сколько цифр 1 в двоичном представлении десятичного числа 12
Информатика, опубликовано 08.11.2018
Помогите пожалуйста очень очень надо плис как это сделать объясните