Напишите на языке Паскаль программу вычисления по формуле: где a, b - целые числа

~PascalABC.NET

begin

 var a := ReadInteger2('Введите a и b:');

 write('y = ', (a[0] + a[1])*(a[0] + a[1]) / (2*a[0]));

end.

program formula;

var

a,b:integer;

y:real;

begin

write('Введите а》');

read(a);

write('Введите b》');

read(b);

y:=sqr(a+b)/(2*a);

write('y=',y);

readln;

end.

Объяснение:

a = int(input())

b = int(input())

c = int(input())

p = (a+b+c)/2

if a <= 0 or b <= 0 or c <= 0:

   print("Неверные стороны треугольника")

elif (a+b) < c or (a+c) <  b or (c+b) < a:

   print("Неверные стороны треугольника")

else:

   s = (p*(p-a)*(p-b)(p-c))**0.5 # считаем площадь по трем сторонам

   print("Площадь: ", s)

   if a == b == c:

       print("Равносторонний треугольник")

   elif (a == b) or (a == c) or (b == c):

       print("Равнобедренный треугольник")

   else:

       print("Разносторонний треугольник")

1)Байт (ағылшынша byte) — ЭЕМ-дегі символдық таңбаларды бейнелейтін сегіз разрядты екілік сан тізбегінен тұратын, адрестелетін мәліметтерді өлшеуге арналған ең кіші бірлік. Компьютер жадының бір ұясында бір Байт мәлімет сақталады. Бір Байт бір-бірімен қатарласа тізбек түрінде орналасқан 8 биттен, яғни екілік сан таңбаларынан тұрады. Мысалы, компьютерде “Е” әрпі 10000101, кіші “е” әрпі 10100101, “/” таңбасы 00101111, “8” саны 00111000 түрінде өңделеді.

Объяснение:

Күнделікті тұрмыста адам үшін ақпарат дегеніміз - бұл бір нәрселер жөнінде хабарлау және мағлуматтар беру