Сделать нужно с В то далёкое время, когда Паша ходил в школу, ему очень не нравилась формула Герона для вычисления
площади треугольника, так как казалась слишком сложной. В один прекрасный момент Павел решил
избавить всех школьников от страданий и написать и распространить по школам программу,
вычисляющую площадь треугольника по трём сторонам.
Одна проблема: так как эта формула не нравилась Павлу, он её не запомнил ему завершить
доброе дело и напишите программу, вычисляющую площадь треугольника по переданным длинам трёх
его сторон по формуле Герона:
2
a+b+c
S= p*(p-a) *(p-b)*(p-c), где р== полупериметр треугольника. На вход программе подаются целые
числа, выводом программы должно являться вещественное число, соответствующее площади
треугольника.
Input: 3 4 5 Output: 6.0
:
Примечание. Для извлечения корня можно
возвести в 0.5 степень (a**0.5)
​

Объяснение:

S= p*(p-a) *(p-b)*(p-c), где р==Output: 6.0

a = int(input())

b = int(input())

c = int(input())

p = (a+b+c)/2

print((p*(p-a)*(p-b)*(p-c))**0.5)

var i,s: integer;

{1}begin

s: =0;

for i: =1 to 1000  do

if i mod 2=0 then s: =s+i;

end.

{2}begin

for i: =1 to 1000 do

if odd(i) then s: =s+i;

{3}a: array[1..500] of integer;

n: integer;

for i: =1 to 1000 do

if odd(i) then a[i]: =i;

n: =i;

for i: =1 to n do

s: =a[i]+s;

end.

program p_1; var i, n : integer; s : real; b : array [1..1000] of real; begin writeln('введите количество значений массива n'); readln(n); write('введите элементы массива а: '); for i: =1 to n do readln(a[i]);   writeln('введите элементы массива b'); for i: =1 to n do readln(b[i]); writeln('первоначальный массив b'); for i: =1 to n do writeln(b[i]); s: =0; for i: =1 to n do if a[i] mod 2 = 0 then s: =s+b[i]; writeln('сумма четных значений =', s); end.