Ребята, помогите пожалуйста!!!Составить программу вычисляющую периметр ромба, если знамениты

Ребята, помогите пожалуйста!!!
Составить программку вычисляющую периметр ромба, если знамениты его диагонали.(Pascal)

Задать свой вопрос
1 ответ
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.

Вроде так, но может быть ошибка
Диана Незеева
спасибо большое))
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт