profile
Опубликовано 5 лет назад по предмету Информатика от g666g

Помогите пожалуйста, Срочно!!!

  1. Ответ
    Ответ дан manamahkrit
    program yrav;
    var
    xa, xb, xc, ya, yb, yc : integer;
    S: real;
    begin
    writeln('Введите координаты вершин треугольника: ');

      writeln('xa='); readln(xa);
      writeln('ya='); readln(ya);
      writeln('xb='); readln(xb);
      writeln('yb='); readln(yb);
      writeln('xc='); readln(xc);
      writeln('yc='); readln(yc);
        
    S:=(abs((xb-xa)*(yc-ya)-(xc-xa)*(yb-ya))/2);

    writeln('Площадь треугольника: ', S);
    end.

Самые новые вопросы