Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Варя1001005
26.09.2022 12:23 •
Информатика
(паскль)составьте программу выполняющую расчет площади треугольника
Показать ответ
Ответ:
iphoneXY
06.10.2020 01:16
Program sfsdsd;
var s,a,h:real;
begin
writeln ('Введите длину основания');
readln (a);
writeln ('Введите длину высоты');
readln (h);
s:=(a*h)/2;
writeln ('Площадь треугольника равна : ',s);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
lizka12343
12.03.2021 07:58
по 2-чной системе сложение в 8 классе Информатике Сложение: a) 11001 +101= б) 11001+11001= в) 1001 + 11= г) 11011 + 1111= д) 11011 + 1111 Умножение a)1101 * 1110=...
Nekomimi11
26.03.2021 18:23
Определите значение переменной а а: =10 if a 5 then a: =a+12 else a: =a-7; if a 5 then a: =a+12 else a: =a-7;...
gogoja
26.03.2021 18:23
Чем отличается чтение нот от прослушивания музыки с точки зрения формы принимаемой информации?...
ева470
14.09.2020 06:34
Сделайте к этой картинке команду исполнитель чертёжник...
Полина20042909
15.01.2021 15:29
1. Виконайте завдання за даними таблиці a) В комірку таблиці введено формулу ЕСЛИ (C8 0;B8+C8;B8). Вкажіть, в яку саме?б) В комірку таблиці введено формулу СУММЕСЛИ(C2:C8;0;D2:D8)....
geniip
06.08.2020 04:19
Исполнитель НОД (наибольший общий делитель)получает два числа 42 и 15.За один шаг число,значение которого больше другого,уменьшается на число наименьшее Определи...
MrQelen
22.02.2022 09:55
Путон тілін кім ойлап тапты...
ivanovayo08
06.10.2021 06:58
Дано вещественное число а. Составить алгоритм вывода всех натуральных чисел n, при которых выполняется условие...
андрей2096
18.03.2020 22:30
с кросфордом по информатике ...
anntokarieva
18.03.2020 22:30
Напишите СОЧИНЕНИЕ на тему Какой для ненавистников урок......
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var s,a,h:real;
begin
writeln ('Введите длину основания');
readln (a);
writeln ('Введите длину высоты');
readln (h);
s:=(a*h)/2;
writeln ('Площадь треугольника равна : ',s);
end.