pascal (одномерный массив) внутри help

Question

pascal (одномерный массив) внутри help

твой друг Ученик (68), закрыт 12 лет назад

Задано 10 троек чисел a,b,c. Вводя их по очереди и считая, что указанные числа представляют собой длины сторон, определить,сколько троек может быть использовано для построения равносторонних и равнобедренных треугольников.

Answer 1

общий алгоритм

перебираем массив, сравниваем числа
если равны все числа - равностороний
если равна любая пара чисел - равнобедренный

для полного счастья можно еще проверять чтоб сумма каждой пары чисел из тройки была больше третьего числа, иначе треугольник вообще не возможен

Answer 2

Как-то так:
KolRS := 0; KolRB := 0;
for N := 1 to 10 do
if (A[N] = B[N]) and (A[N] = C[N]) then Inc(KolRS)
else if (A[N] = B[N]) or (A[N] = C[N]) or (B[N] = C[N]) then Inc(KolRB);
WriteLn('Равносторонних: ', KolRS);
WriteLn('Равнобедренных: ', KolRB);