Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
nastyakot2609
13.09.2021 10:50 •
Информатика
)) 2. написать программу на языке программирования паскаль, вычисляющую гипотенузу и площадь прямоугольного треугольника по двум данным катетам.
Ответ:
link21
02.10.2020 06:20
Var a, b, c, s: real;
begin
write('Введите a, b: '); readln(a, b);
c := sqrt(a*a + b*b);
s := (a * b) / 2;
writeln('Гипотенуза: ', c, #10, 'Площадь: ', s);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Тимуркупцов123
16.07.2022 14:52
Напишите две основные задачи любой операционной системы...
Yan132142
24.02.2023 17:05
В каких случаях на покупку лицензионных программ разработчики предоставляют скидки?Как называются все условно-бесплатные программы?...
ghhhghf
04.03.2023 13:43
Получить остаток от деления можно с операции? :/moddivI ...
Maximys2001123
07.02.2021 00:20
Вариант 2 Для того чтобы успешно ориентироваться на местности, нужно знатьследующее:в полдень направление тени (она будет самая короткая) указывает на север.летом...
SophiaSaliuk
18.09.2020 15:00
2. Соотнесите линиями инструменты их виду Рисования Инструменты Модификации Редактироания...
КристиGirl
11.02.2022 03:50
Дана таблица расчета налогов. Рассчитывается налог по следующему условию: В государстве Тишландия установлены следующие правила налогообложения: с годового дохода...
ослвлвллыб
26.02.2021 22:22
Из перечисленных предметов выделите модели 1)человек 2)карта местности 3) корабль 4) стол 5)эскиз костюма 6) план местности 7) кукла 8) чертёж детали 9) машина 10)...
sukhodolova
11.02.2020 17:42
Верна ли следующая программа? если да, то сколько операторов она содержит, если нет, то почему: var x,y: integer; begin readln(y); ; x: =0; if x 0 then; writeln(x,y);...
Akbota0504
17.04.2021 18:59
Решить ! после удачной костя принёс домой 1,4кг рыбы.из 2/7 этой рыбы сварили уху,а 80%оставшейся-поджарили.сколько рыбы поджарили....
sergejkochetko
17.04.2021 18:59
Как читаются слова по напишите на hector ) no language is easy to learn because they all have their own history and culture and no language can be simplified just...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
begin
write('Введите a, b: '); readln(a, b);
c := sqrt(a*a + b*b);
s := (a * b) / 2;
writeln('Гипотенуза: ', c, #10, 'Площадь: ', s);
end.