Ответы
Ответ дал:
0
Program romb;
Var
d1,d2,a,p:real;
Begin
Write('Введите диоганали ромба: ');
Readln(d1,d2);
a:=(sqrt(sqr(d1)+sqr(d2)))/2;
P:=a*4;
Writeln('Периметр данного ромба: ',p);
End.
Var
d1,d2,a,p:real;
Begin
Write('Введите диоганали ромба: ');
Readln(d1,d2);
a:=(sqrt(sqr(d1)+sqr(d2)))/2;
P:=a*4;
Writeln('Периметр данного ромба: ',p);
End.
Ответ дал:
0
Спасибо огромное!
Ответ дал:
0
Да пожалуйста :)
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
8 лет назад
8 лет назад
9 лет назад