Известны длины сторон треугольника a,b,c. напишите на языке Паскаль программу, вычисляющую площадь этого треугольника. пример входных данных: а=3 b=4c=5. пример выходных данных S=6.0
Известны длины сторон треугольника a,b,c. напишите на языке Паскаль программу, вычисляющую площадь этого треугольника. пример входных данных: а=3 b=4c=5. пример выходных данных S=6.0
Гость
Ответ(ы) на вопрос:
Гостьprogram test;
var a, b, c:integer; s, p: real;
begin
write('Enter a: ');
readln(a);
write('Enter b: ');
readln(b);
write('Enter c: ');
readln(c);
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('S = ', s);
readln;
end.
Гостьvar a, b, c, p, s : real; begin read (a, b, c); p := (a + b + c) / 2; s := sqrt (p * (p - a) * (p - b) * (p - c)); //формула Герона writeln (s); end.
Не нашли ответ?
Похожие вопросы