ЧТо тут не так? program jenty2;
Var a,b,c :integer;
Begin
Writeln ('введите три числа');
Readln (a,b,c);
If (a begin
If (a=b) or (a=c) or (b=c) then Writeln (' равносторонний')
Else begin
If (a=b) or (a=c) or (b=c) then Writeln (' равнобедренный')
Else Writeln (' разносторонний')
end;
end
Else Writeln ('не существует');
End.
Таким образом, можно утверждать, что заданные числа это 33₄, 66₇, 88₉
Число 100 в системе счисления по оcнованию n равно n², т.е. для указанных чисел это будут значения 4²=16, 7²=49 и 9²=81. Остается вычесть единицу.
Соответственно, в десятичной системе 33₄=15, 66₇=48, 88₉=80