Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
svalevayulia10
16.07.2020 08:39 •
Информатика
Составить программу вычисляющую периметр ромба, если известны его диагонали.(pascal)
Показать ответ
Ответ:
Lenka5891
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 оценок)
Популярные вопросы: Информатика
ксе16
29.04.2020 14:25
Python. Дан список, выведите все комбинации из двух чисел для этого списка. Повторять комбинации не нужно, то есть если вывели 1 2, то выводить 2 1 не требуется....
aleksa604
10.01.2022 02:03
найти ошибку в программе на с++ задача и моя программа прикреплены. вроде всё правильно, но при вводе как в примере, у меня выходит yes вместо no...
edvi01
24.07.2022 04:21
Как называеться сканер джойстик клавиатура мышь...
Нина20071
08.06.2020 16:49
с этим . Набрать и отладить программу нахождения наибольшего общего делителя и протестировать её на следующих исходных данных: а) a=40 b=64 б) a=32 b=16 в) a=12...
КристинаНяшка2
17.09.2022 20:33
Даны катеты прямоугольного треугольника a и b. Найти его гипотенузу с, периметр P и площадь S. (Pascal)...
An125
27.01.2021 15:30
Составить программу по заданию Найти наименьшее из четырех заданных действительных чисел a, b, c и d Определить тип вычислительного процесса. Построить алгоритм...
YulaTian12334
10.09.2021 23:34
5 Find the errors in the expressions used in the sentences and correct them. 1 It is a very convenient place, within foot distance of the shopping centre. 2 The...
dribinl41
16.07.2022 07:20
Откройте файл с текстом программы и определите результат не выполнения ОЧЕНЬ НАДО />...
лиза2698
28.12.2022 23:26
Ми-ля-до диез - что за аккорд? фа-ля-до диез - что за аккорд? до-ми-ля - что за аккорд? дать определение: тритоны в гарм. мажоре и натур. миноре сейчас экзамен...
winterwhite123
06.05.2021 23:39
А1. В каком слове верно обозначен ударный гласный? 1) ЭкспЕрт; 2) кОклюш; 3) дремотА; 4) катАлог. А2. Укажите фразеологизм со значением «большое количество чего-либо»....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.
Вроде так, но может быть ошибка