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

Ребята, понимающие информатику. Помогите!

  1. Ответ
    Ответ дан Аккаунт удален
    // PascalABC.NET 3.1, сборка 1171 от 15.02.2016
    function geron(a,b,c:real):real;
    begin
      var p:=(a+b+c)/2;
      Result:=sqrt(p*(p-a)*(p-b)*(p-c))
    end;

    begin
      var x,y,z,t,d:real;
      Write('Введите x,y,z,t,d через пробел: ');
      Read(x,y,z,t,d);
      Writeln('S=',geron(x,d,t)+geron(d,y,z):0:4)
    end.

    Тестовое решение:
    Введите x,y,z,t,d через пробел: 3 4 5 6 8 7
    S=15.8260
    1. Ответ
      Ответ дан Tranquility1
      Спасибо!
    2. Ответ
      Ответ дан Аккаунт удален
      пожалуйста
Самые новые вопросы
Носкова Анастасия
Другие предметы - 5 лет назад

Сочинение-рассуждение. прочитайте текст. есть у меня внучка. однажды она говорит: — у веры в субботу день рождения. она

Наумова Надя
Другие предметы - 5 лет назад

Л.н. толстой. как боролся русский богатырь как сказал иван о своей силе? найдите ответ в тексте. запишите.

Сазонова Анастасия
История - 5 лет назад

Кто такой мильтиад и какова его роль в победе над персами?

Тетерина Татьяна
История - 5 лет назад

Какие примеры н. м. карамзин использует для разъяснения пользы новой системы престолонаследия? согласны ли вы с позицией

Попова Полина
География - 5 лет назад

Дополните схему. она поможет вам лучше усвоить содержание §1.: 1 что изучает география 2 с помощью чего 3 зачем изучают

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.