Даны три натуральных числа. напишите программу, определяющую, существует ли треугольник с такими длинами сторон.если существует такой треугольник, то определите его тип (равносторонний, равнобедренный, разносторонний) пример входных данный пример выходных данных a b c> > 1 2 1 не существует a b c> > 2 2 2 равносторонний a b c> > 20 20 30 равнобедренный a b c> > 3 4 5 разносторонний

Var a ,b,c : real; begin writeln ('введите три числа'); readln (a,b,c); if (a< b+c) and (b< a+c)and(c< a+b) then  begin  if (a=b) and (a=c)and (b=c) then writeln (' треугольник равносторонний') else begin  if (a=b)or(a=c)or(b=c) then writeln ('треугольник равнобедренный') else writeln ('треугольник разносторонней'); end; end else writeln ('треугольника с заданным сторонами не существует'); end.

a     b     a& b     ¯a& b     ∨

0     0       0           0         0

0     1         0           1         1

1     0       0           0         0

1     1         1           0         1

//видимо, это одна , так как "изменения" во второй не указаны //pascal abc.net v3.1 сборка 1172 const   n=20; var   ar: array[1..n] of integer;   i: integer; begin   randomize;   writeln('first array: ');   for i: =1 to n do     begin     ar[i]: =random(10)-3;     write(ar[i]: 4);     if ar[i]> 0 then ar[i]: =ar[i]*2 else ar[i]: =0;     end;   writeln;   writeln('final array: ');   for i: =1 to n do     write(ar[i]: 4); end. пример работы программы: first array:     2   -3   5   6   -3   -3   1   -2   -3   1   3   -3   4   -3   1   -1   6   6   2   3 final array:     4   0   10   12   0   0   2   0   0   2   6   0   8   0   2   0   12   12   4   6