Можно ли построить треугольник из заданных сторон

@rifat · Регистрация: 12.12.2011

Author24 — интернет-сервис помощи студентам

даны длины трёх сторон треугольника. Проверить можно ли из них построить треугольник?

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var
  a,b,c:integer;
begin
  a:=strtoint(edit1.text);
  b:=strtoint(edit2.text);
  c:=strtoint(edit3.text);
  If (a<=(b+c))and (b<=(a+c)) and (c<=(a+b)) then
    Edit4.Text:='да';
  Else
    Edit4.Text:='нет';
end;
 
end.

Комментарий модератора

Используйте специальные теги форматирования кода!

@Zombi_sib · 12.12.2011, 16:34

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c:integer;
begin
a:=strtoint(edit1.text);
b:=strtoint(edit2.text);
c:=strtoint(edit3.text);
if (a<=(b+c))and (b<=(a+c)) and (c<=(a+b)) then
Edit4.Text:='да'   // сотри точку запетой здесь;
Else Edit4.Text:='нет';
end;
 
end.

@rifat · 12.12.2011, 16:52 **[ТС]**

Zombi_sib большое спасибо теперь зарабртало

@igori · 13.12.2011, 16:49

надо не <=, а просто <

@rifat 0 / 0 / 0 Регистрация: 12.12.2011 Сообщений: 3
	12.12.2011, 16:52 [ТС]	3
	Zombi_sib большое спасибо теперь зарабртало 0

@igori 5 / 5 / 0 Регистрация: 19.07.2011 Сообщений: 15
	13.12.2011, 16:49	4
	надо не <=, а просто < 0