безотлагательно сделать программу по информатике!! помогите пожалуйста в программках не шарю

Срочно сделать программку по информатике!! помогите пожалуйста в программках не шарю вообще((

Задать свой вопрос
Илья Кирицов
Какой язык?
1 ответ

uses math;

var

   a, b, c: Integer;

   S, p: Real;

begin

   readln(a);

   readln(b);

   readln(c);

   

   p := (a + b + c) / 2;

   S := sqrt(p * (p - a) * (p - b) * (p - c));

   

   writeln(S:0:1);

end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт