function check_is(a, b, c: integer): boolean; begin if a >= b + c then check_is := false else if b >= a + c then check_is := false else if c >= a + b then check_is := false else check_is := true; end; procedure check_how(a, b, c: integer);begin if ((a = b) and (b = c) and (a = c)) then writeln('равносторонний') else if ((a = b) or (b = c) or (a = c)) then writeln('равнобедренный') else writeln('разносторонний'); end;
begin writeln('Введите стороны треугольника'); read(a, b, c); if check_is(a, b, c) then check_how(a, b, c) else writeln('Нет такого треугольника!'); end.
Ну, поскольку уточнения по задаче не получил, буду считать, что цифра 1 может встречаться ровно два раза в КАЖДОЙ комбинаций (в противном случае ответ, конечно, будет другой):
Всего используется 4 знака.Нормализуем последовательность к нулю , от этого количество комбинаций не изменится: было : 111111 - 44444 стало: 00000 - 33333
Исключаем из общего количества комбинаций комбинации с двумя единицами (всего 9): 11ххх 1х1хх 1хх1х 1ххх1 х11хх х1х1х х1хх1 хх11х хх1х1 ххх11 значимыми остаются только 3 разряда из 5. 333 в 4-ричной системе счиления равно 63 в 10-ричной. - именно столько комбинаций будет при условии, что два разряда выставлены в единицы. 9х63=563 - столько комбинаций будет всего.
Примеры:
2.4
2.000000000001
2.99999999999
2.44432432412423
и т.п.