Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
AlinkaMalinka233
02.10.2020 21:08 •
Информатика
Составить программу вычисления площади треугольника
Показать ответ
Ответ:
erke999000
19.06.2020 00:10
Var
a,b,c,p:real;
begin
writeln('Введите длины сторон треугольника: ');
write('A = ');read(a);
write('B = ');read(b);
write('C = ');read(c);
p:=(a+b+c)/2;
writeln('Площадь треугольника: ', sqrt(p*(p-a)*(p-b)*(p-c)):4:4);
end.
0,0
(0 оценок)
Ответ:
Kurlyk111
19.06.2020 00:10
Program perimeter_1;
uses crt;
var
P,a,b,c:real;
begin
clrscr;
writeln('введите a')
read (a);
writeln('введите b')
raed(b);
writeln('введите c')
raed(c);
P:=a+b+c;
writeln(P);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Lis25pfi174
05.12.2021 18:48
В результате работы алгоритма Y := X + 3; X := 2*Y; Y := X + Y; Переменной Y приняла значение 18. Укажите число, которое являлось значением переменной X до начала...
Superfoxygirl112
20.09.2022 12:39
Самая известная программа, написанная на языке Python, — это популяр- ная социальная сеть Instagram.Отвечаем на вопросы1. Что такое алгоритм?2. Какую команду нужно...
vol12
17.01.2021 17:18
Всхематическом виде отразите изменения в ячейках, соответствующих переменным а и в, в ходе последовательного выполнения команд присваивания: 1)а: =1; в: =2; а: =а+в;...
DashaL109
21.02.2022 06:14
Написать программу которая вычисляет сумму положительных из n введенных с клавиатуры целых чисел (for) в паскале abc...
hfdgddcju
21.02.2022 06:14
Написать программу, , . вид экрана: введите числа. для завершения последовательности нажмите ноль. 45 23 15 0 введено чисел: 3 сумма чисел: 83 среднее арифметическое:...
serovau85
14.07.2021 23:34
Легкое по инфе во вложении 1.определите, что будет напечатано в результате работы следующей программы. текст программы на трех языках программирования. паскаль var...
ВАНЯПУХОВ
14.07.2021 23:34
1.определите, что будет напечатано в результате работы следующей программы. текст программы на трех языках программирования. алгоритмический язык бейсик паскаль...
nastya261205
22.12.2022 13:58
Raid-массив это 1) набор жестких дисков, подключенных особым образом 2) антивирусная программа 3) вид хакерской утилиты 4) база защищенных данных 5) брандмауэр...
Wertik3
05.03.2022 13:32
Определить информационный объем в кбайтах 2-х минутного фильма с частотой смены кадров 24 и 256–ти цветной палитрой, если разрешение экрана 240х320. определить время...
FLASHSAVITAR
31.03.2023 14:41
Каждый из 35 шестиклассников является читателям по крайней мере 1из 2 библиотек: школьной и районнойю из них 25 человек берур книги в школьной библиотеке,20-в районной....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
a,b,c,p:real;
begin
writeln('Введите длины сторон треугольника: ');
write('A = ');read(a);
write('B = ');read(b);
write('C = ');read(c);
p:=(a+b+c)/2;
writeln('Площадь треугольника: ', sqrt(p*(p-a)*(p-b)*(p-c)):4:4);
end.
uses crt;
var
P,a,b,c:real;
begin
clrscr;
writeln('введите a')
read (a);
writeln('введите b')
raed(b);
writeln('введите c')
raed(c);
P:=a+b+c;
writeln(P);
end.