Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
BEHEP
06.02.2023 11:26 •
Информатика
Решить эту в для двух треугольников с катетами а, b, с, d. найти сумму площадей треугольников.(вычисление площади оформить в виде под программы-функция или процедура).
Показать ответ
Ответ:
danil546
17.07.2020 17:17
Function S_tr(a,b:integer):real;
begin
S_tr:=a*b/2
end;
var a,b,c,d:integer;
s:real;
begin
s:=0;
read(a,b,c,d);
s+=S_tr(a,b);
s+=S_tr(c,d);
writeln(s);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
keks661
01.08.2022 03:10
Алфавит языка состоит из 16 знаков.сколько информации несет сообщение длинной 32 символа?...
анжела286
13.12.2022 15:47
Дана программа:Program Primer,VarN,result: real;BeginWriteln( Введите значения переменной N );Write( N= );Readln(N);Result := sqr(9+N)* 3);Writeln ( sqr((94N)*3) ,...
Vdbsgshhsgshhd
23.02.2023 10:04
Встановіть відповідність Варианты ответов: var,not,and,true,or,xor...
mikhuil
10.08.2022 05:01
PYTHON, Начав тренировки, спортсмен в 1 день пробежал 10 км. каждый день он увеличивал дневную норму бега на 10% нормы предыдущего дня. какой суммарный путь пробежит...
elizavetanosova2000
21.05.2022 05:47
Почему программы-переводчики успешно переводят деловые документы,но не годятся для перевода текстов художественных произведений?...
Dispasito
30.04.2023 23:02
Определите в массиве A номер первого элемента, равного X. Определите номер первого элемента, равного X, в первой половине массива A (массив имеет чётное число элементов)....
малый6
30.04.2020 21:47
Какие виды информации получать животные , растения?...
Настя20767
12.10.2021 07:36
3. Переведите на родной язык слова лес, дерево, ствол, Пень. 4. Найдите в тексте ответы на вопросы: 1) Почему не загорелась Берёза? 2) Вокруг чего с тех пор растут...
alieksandra10981
06.03.2020 06:04
На поч. 1840 р. в Англії побачила світ праця історика Т.Карлейля «Чатизм», де він доводив, що знищити чартиський рух у країні не можливо доти, поки не буде ліквідовано...
nikitosik1296
13.04.2023 13:36
створіть у текстовому процесорі таблицю для представлення складу власного освітньо-комунікаційного середовища, указавши сервери та ресурси, які ви використовуєте та...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
S_tr:=a*b/2
end;
var a,b,c,d:integer;
s:real;
begin
s:=0;
read(a,b,c,d);
s+=S_tr(a,b);
s+=S_tr(c,d);
writeln(s);
end.