Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Рюка
24.03.2022 07:21 •
Информатика
Составьте программу вычисления площади треугольника с основанием a и высотой h. значения a и h введите с клавиатуры !
Показать ответ
Ответ:
zakir2007
30.09.2020 01:15
Program treugolnik;
Uses crt;
var a,h,s: real;
Begin clrscr;
write('Основание a = ');
readln(a);
write('Высота h = ');
readln(h);
writeln;
if (a<=0) or (h<=0) then
writeln('Значения не могут быть отрицательными или равняться нулю')
else
begin
s:=(1/2)*a*h;
writeln('Площадь треугольника s = ',s);
end;
readln;
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
narik2222
21.05.2023 14:15
Завдання. Створіть інформаційну модель для вивчення вимірювальних приладів на уроках фізики. Зобразіть на форматі А4 структурну модель для вивчення вимірювальних приладів....
89533807722qoznnn7
25.02.2020 12:26
Какое из этих устройств относится к устройствам вывода графической информации?...
ИЛЬЯ14112005
06.05.2021 06:29
Перевести из 10Сс в 2Сс,16Сс,12Сс и обратно число 103010. 2. Перевести из 2Сс в 8Сс,16Сс методом «триад» и «тетрад»(родственные системы счисления) и обратно число...
Mikutyan01
07.06.2023 21:12
Какие функции выполняет кнопка Вращение (Orbit)...
Manthflashlight
19.09.2021 23:49
Чим табличні величини відрізняються від текстових або числових величин? ...
olganedbaylova
17.05.2021 01:02
1. Указать вид синтаксической связи Стол для письма, графин из хрусталя, встретить с радостью, цель жизни, упрямо доказывать, ржаные колосья. 2. Расставить знаки препинания...
Альона13345
17.05.2021 01:02
Человек с рычага поднимает ящик прилагая силу 150 Ньютонов плечо силы F2 длина отрезка...
maximkap007
17.05.2021 01:02
Исследуй видовой состав представленных экосистем «Водоем» и «Лес».2. Определи виды, представленные в экосистемах.3. Перечисли виды, относящиеся к продуцентам, консументам...
Рита460
06.12.2020 18:57
1) Как изменяются свойства предельных одноосновных карбоновых кислот с увеличением числа атомов углерода в молекуле? 2) Как изменяются свойства карбоновых кислот с...
vika160805v
06.12.2020 18:57
Составить 6 во разных типов ) к тексту. ТИПЫ ВО ЕСТЕСТВЕННО МОГУТ ПОВТОРЯТЬСЯ. 1.Общий во Специальный во Во к подлежащему. 4.Альтернативный во Разделительный во Косвенный...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Uses crt;
var a,h,s: real;
Begin clrscr;
write('Основание a = ');
readln(a);
write('Высота h = ');
readln(h);
writeln;
if (a<=0) or (h<=0) then
writeln('Значения не могут быть отрицательными или равняться нулю')
else
begin
s:=(1/2)*a*h;
writeln('Площадь треугольника s = ',s);
end;
readln;
End.