Question

Что тут не так? Я пиши 1 1 548 и он выдаёт, что это равносторонний
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.

Answer 1

Ответ:

У равностороннего треугольника должны быть ВСЕ стороны равны. А у тебя в условии стоит, что хотя бы одна. Поэтому и выдает не то, что тебе нужно. Я точно паскаль не помню, но по-моему нужно написать вот так: If (a=b) and (a=c) and (b=c) then Writeln('равносторонний')