Что тут не так? Я пиши 1 1 548 и он выдаёт, что это равностороннийprogram jenty2;Var a,b,c :integer;BeginWriteln ('введите три числа');Readln (a,b,c);If (abeginIf (a=b) or (a=c) or (b=c) then Writeln (' равносторонний')Else beginIf (a=b) or (a=c) or (b=c) then Writeln (' равнобедренный')Else Writeln (' разносторонний')end;endElse Writeln ('не существует');End.

Question

Информатика

Емельян

4 год назад

Что тут не так? Я пиши 1 1 548 и он выдаёт, что это равностороннийprogram jenty2;Var a,b,c :integer;BeginWriteln ('введите три числа');Readln (a,b,c);If (abeginIf (a=b) or (a=c) or (b=c) then Writeln (' равносторонний')Else beginIf (a=b) or (a=c) or (b=c) then Writeln (' равнобедренный')Else Writeln (' разносторонний')end;endElse Writeln ('не существует');End.

ОТВЕТЫ

Милана

Dec 1, 2020

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

285