[4u4undrik]

здравствуйте,помогите пожалуйста с решением задачи:
Даны три целых неотрицательных числа a, b, c, являющихся длинами сторон треугольника. Проверить, является ли он равносторонним, равнобедренным (в этом случае надо указать длину неравной стороны) или разносторонним.

как указать длину стороны именно в случае равнобедренного???

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

program Project2;   {$APPTYPE CONSOLE}   uses   SysUtils;   var   a,b,c:integer;   begin   { TODO -oUser -cConsole Main : Insert code here }      begin   writeln('vvedite a b c'); readln(a,b,c);      if (a=b)and(b=c) then writeln('treugolnik ravnostoronni') else   if (a=b)or(a=c)or(b=c) then writeln('treugolnik ravnobedrenni')   else writeln('treugolnik raznostoronnii');    end; readln; end.

[icWasya]

Как то так

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13

if (a=b)and(b=c) then   writeln('treugolnik ravnostoronni') else  // сюда попали, если треугольник не равносторонний if (a=b) then   writeln(treugolnik ravnobedrenni. osnovanie c=',c) else  if (a=с) then   writeln(treugolnik ravnobedrenni. osnovanie b=',b) else  if (b=с) then   writeln(treugolnik ravnobedrenni. osnovanie a=',a) else   writeln('treugolnik raznostoronnii');

[4u4undrik]

попробую так сделать,спасибо)