Var a, b, c : integer;
begin
readln(a, b, c);
if (a = b) and (a=c) then writeln('Треугольник равносторонний');
if ((a=b) and (a<>c)) or (b = c) and (b<>a) then writeln('Треуголник равнобедренный')
end.
Ответ:
2 строчка: 151
3 строчка: 86
4 строчка: 64
в 8-ую степень с помощью триад
в 10 с помощью степеней двойки
в 16-ую систему с помощью тетрад
C4--->=A$3+$B$2-A4
D7---><u>=B$3+$B$2-B7</u>
1 байт=4 битам 4x32=128 байтов