nya7771
Опубликовано 6 лет назад по предмету Информатика от nya7771


ДАЮ 20 БАЛЛОВ!!! Помогите написать программу в Паскале!!! Даны 3 стороны треугольника.надо найти площадь(по формуле герона)

  1. Ответ
    Ответ дан ForaN777
    var a,b,c,p,S:real;beginwriteln('Введите A: ');readln(a);writeln('Введите B: ');readln(b);writeln('Введите C: ');readln(c);if (a+b>c) and (b+c>a) and (a+c>b) and (a>0) and (b>0) and (c>0) thenbeginp:=(a+b+c)/2;S:=sqrt(p*(p-a)*(p-b)*(p-c));writeln('S = ',s)end elsewriteln('Стороны треугольникавведены неверно!');end.
Не тот ответ, который вам нужен?
Найди нужный
Задай вопрос

Лучшие за месяц