Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
7Таяна
11.09.2020 18:34 •
Информатика
Напишите программу вычисления периметра и площади прямоугольного треугольника по заданным длинам двух катетов a и b. на языке паскаль
Показать ответ
Ответ:
Реноша
05.10.2020 14:03
Var a,b,c,s,p:real;
begin
Write('Введите a и b:');
Read(a,b);
c:=sqrt(a*a+b*b);
p:=a+b+c;
s:=(a/2)*b;
Writeln('Периметр: ',p);
Write('Площадь: ',s);
End.
0,0
(0 оценок)
Ответ:
Віка34566
05.10.2020 14:03
Var a,b: integer;
begin
writeln('Введите а');
readln(a);
writeln('Введите b');
readln(b);
writeln('Площадь',' ' , a*b);
writeln('Периметр',' ' , (a+b)*2);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Zayats2007
29.12.2021 23:30
Сравни предложенные варианты использования блока независимое управление и выбери при которым робот делает разворот...
dasha43com
15.07.2021 21:24
Підкресліть правильно записані адреси клітинок. Для неправильних адрес укажіть, яку помилку допущено: Z3, Б7, 67S, C3D5, ZZZ3, AB4, L2000000, DK45, V;...
adam80
18.04.2023 21:06
Выбери типы переменных, которые используются в языке программирования Python real char int boolean type float str...
ramina25
06.05.2021 05:02
Дети, как известно, все раньше и раньше начинают пользоваться интернетом. Теперь, когда у них возникают вопросы, они не бегут к родителям, а заходят в свою любимую...
sanekpalyxa
25.08.2021 05:07
1. Указать результат при работе с файлами file = open ( Input.txt , a ) file = open ( Input.txt , w ) file = open ( Input.txt , r ) Открывает файл в режиме чтения Открывает...
умница2423
18.05.2021 12:42
Вычислите десятичные эквиваленты наибольшего и наименьшего натуральных четырёхразрядных восьмеричный чисел(чисел , записанных в восьмеричной системе счисления)...
ivan488
19.10.2021 04:32
Объявить вещественные переменные a, b и с и задать их значения. Предполагая, что a, b, c есть коэффициенты квадратного уравнения вывести на консоль значения их корней...
St1mx15
20.12.2020 19:28
1.Напишіть программу для запису і розв язування виразу (a + b)(a + b), де a i b - натуральні шлі числа. 2.Дано відстань в метрах. Знайти кількість повних кілометрів...
taukebai2002
09.01.2021 12:39
Получить двоичную форму внутреннего представления целого числа в 2-х байтовой ячейке (1689) Получить получить шестнадцатеричную форму внутреннего представления целого...
Volkov1822
29.06.2020 14:17
На рисунке представлена схема дорог, связывающих пункты А, Б, В, Г, Д, Е, Ж, И, К, Л, М, Н, П, Р, С. По каждой дороге МОЖНО передвигаться ТОЛЬКО В направлении, указанном...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
Write('Введите a и b:');
Read(a,b);
c:=sqrt(a*a+b*b);
p:=a+b+c;
s:=(a/2)*b;
Writeln('Периметр: ',p);
Write('Площадь: ',s);
End.
begin
writeln('Введите а');
readln(a);
writeln('Введите b');
readln(b);
writeln('Площадь',' ' , a*b);
writeln('Периметр',' ' , (a+b)*2);
end.