Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
135Солнышко135
06.10.2022 16:17 •
Информатика
По двум данным катетам составьте програму вичесления гипотенузы и плошади прямугольного треугольника
Показать ответ
Ответ:
Dasha170105
06.10.2020 05:32
Var
a, b, c, S: real;
begin
write('Введите длину 1 катета: ');
readln(a);
write('Введите длину 2 катета: ');
readln(b);
c := Sqrt(Sqr(a) + Sqr(b));
S := 0.5 * a * b;
writeln('Гипотенуза треугольника = ', c);
writeln('Площадь треугольника = ', S);
readln;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
lisakiss1
20.09.2020 11:31
Поставлю максимум и , с информатикой путем пошаговой детализации составьте программы графическим исполнителем для решения следующих 1)расчертить все поле горизонтальными пунктирными...
Xiyneu
24.01.2022 12:48
Написать программу в паскаль тип данных файл дан файл f, компоненты которого являются действительными числами. найти из значений компонент: 1) наименьшее из значений компонент с чётными...
lera784738374
26.05.2020 23:25
Получить и записать в массив первые 10 чисел фибоначчи (первые два числа равны 1, а каждое последующее- сумме двух предыдущих)....
bagov2001
21.12.2022 22:03
Ввести с клавиатуры количество линий и построить фигуру:...
Yrbаn
11.08.2021 03:10
Скажите как решить эту заранее большое...
elviraborysenko
03.06.2020 01:59
1)найдите объем раствора соляной кислоты с массовой долей 2%(плотность 1,009 г/мл) для нейтрализаций раствора гидроксида натрия с массовой долей 3%(плотность 1,032 г/мл) и объемом...
vikaprostitova
03.06.2020 01:59
Подписать части дома с меня 35 и подписочка: )...
gafman
08.03.2020 06:47
Нужно 40 ,но умоляюю правельные ответы номер 17...
SkeCreeper
24.09.2020 05:43
Найти сxожести в атоме br и иона br-...
Rustam7887
05.04.2023 19:48
Translate the following beginnings. complete and analyze the sentences. 1. странно, что 2. я обещаю проследить за тем, чтобы 3. абсолютно необходимо 4. мы предложили 5. казалось,...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
a, b, c, S: real;
begin
write('Введите длину 1 катета: ');
readln(a);
write('Введите длину 2 катета: ');
readln(b);
c := Sqrt(Sqr(a) + Sqr(b));
S := 0.5 * a * b;
writeln('Гипотенуза треугольника = ', c);
writeln('Площадь треугольника = ', S);
readln;
end.