Все
Математика
Алгебра
Геометрия
Литература
Русский язык
Истоки
Краеведение
Французский язык
Литературное чтение
Астрономия
Природоведение
Родной край
Немецкий язык
Технология
Физика
Английский язык
Обществознание
Химия
Биология
История
О`zbek tili
Окружающий мир
Естествознание
География
Украинский язык
Информатика
Украинская литература
Казахский язык
Физкультура и спорт
Экономика
Музыка
Право
Белорусский язык
МХК
Кубановедение
ОБЖ
Психология
Кыргыз тили
Другие предметы
Показать все предметы
Шарпуди
02.10.2022, 12:05
Информатика
Составить программу в Pascal ...
1. Площадь треугольника по 3-м его сторонам:
Var a, b, c, P: integer;
PP, S: real;
Begin
(дальше)
Знаешь ответ?

Чтобы оставить ответ, или зарегистрируйтесь.

Ответ или решение 1
Вестислава
Площадь треугольника по 3-м его сторонам:
Var a, b, c, P: integer;
PP, S: real;
Begin
readln (a) ;
readln (b) ;
readln (c) ;
PP : = (a + b + c) / 2;
S : = sqrt (PP * (PP-a) * (PP-b) * (PP-c)) ;
writeln ('Ответ (округлен до тысячных) : ' + S:0:3) ;
end.