Создайте в среде Delphi программу, которая вsчисляет периметр и плошадь квадрата равная стороне а.
Ответы
Ответ дал:
1
Ответ:
procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c,p,S:real;
begin
a:=2;b:=2;c:=3;
if (abs(a-b)<c)and(c<(a+b))then
begin
p:=(a+b+c)/2;
S:=sqrt(p*(p-a)*(p-b)*(p-c));
edit1.text:=floattostr(s);
end else showmessage('не треугольник');
end;
Объяснение:
Вас заинтересует
1 год назад
2 года назад
2 года назад
7 лет назад
8 лет назад