ЯВЛЯЕТСЯ ЛИ ТРЕУГОЛЬНИК a b c РАВНОБЕДРЕННЫМ?только не по правилу паскаля ПЛИЗ!!!!
Var a, b, c: integer;
begin
readln(a, b, c);
if (a=b) and (c=b) then
writeln(Равнобедренный) else writeln(Неравнобедренный);
end.
Оцени ответ
Вход
Регистрация
Задать вопрос
Var a, b, c: integer;
begin
readln(a, b, c);
if (a=b) and (c=b) then
writeln(Равнобедренный) else writeln(Неравнобедренный);
end.