Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
mrpekhterov
17.03.2021 04:48 •
Информатика
Составить программу вычисляющую периметр ромба, если известны его диагонали.(pascal)
Показать ответ
Ответ:
MasterDrenZik
13.07.2020 22:10
Program qq;
var p,d1,d2:real;
begin
write('Введите значение 1 диагонали');
readln(d1);
write('Введите значение 2 диагонали');
readln(d2);
p:=4*sqrt((sqr(d1)/2)+(sqr(d2)/2));
write('Периметр ромба=',p);
end.
Вроде так, но может быть ошибка
0,0
(0 оценок)
Популярные вопросы: Информатика
ussr9989
19.07.2020 22:56
Какие виды блоков сушествуют...
AlexFox144
05.04.2023 03:53
Ребят информатика,очень надо)...
бэдгерл1
24.05.2020 21:37
Хозяйка накопила два горшка масла: один в 8 фунтов, другой в 3 фунта, а третий горшок в 5 фунтов остался у нее пустым. Перед праздником хозяйке понадобилось одолжить соседке 6 фунтов...
nik65112
05.05.2023 04:50
Министерство послало в один из лицеев инспектора для проверки, как в нём ведётся преподавание иностранных языков. Сотрудник министерства в отчёте записал, что в лицее учатся 100...
Igor681
19.04.2023 07:48
Вычислите значение логических выражений ОЧЕНЬ НАДО...
ель18
06.08.2020 02:03
Наименьшее основание системы счисления для числа 34554 1)7 2)10 3)6 4)9...
саша5479
11.08.2020 18:02
Вариант Скиньте готовым файлом....
СиняяАкула
14.01.2022 09:43
2.Write sentences using the correct form of the present continuous 1. My mother-in-law (stay) at our house.2. Why (not) he (play) football tomorrow?3. The weather is better now....
abbalbisk1
06.03.2021 04:44
1. Что общего и в чем различие понятий математическая модель и компьютерная математическая модель ? Постройте сравнительную таблицу....
David1111111577
27.01.2021 20:30
Дана последовательность целых ненулевых чисел, оканчивающаяся нулем (ноль в последовательность не входит). Необходимо найти расстояние (по модулю) между первым минимальным и первым...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var p,d1,d2:real;
begin
write('Введите значение 1 диагонали');
readln(d1);
write('Введите значение 2 диагонали');
readln(d2);
p:=4*sqrt((sqr(d1)/2)+(sqr(d2)/2));
write('Периметр ромба=',p);
end.
Вроде так, но может быть ошибка