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('равносторонний')

Answer 2

В вашем коде есть несколько ошибок и недоразумений. Вот исправленная версия вашего кода:

pascalCopy code
program jenty2;
var
  a, b, c: integer;
begin
  writeln('Введите три числа');
  readln(a, b, c);
  
  if (a > 0) and (b > 0) and (c > 0) then
  begin
    if (a = b) and (a = c) then
      writeln('Равносторонний')
    else if (a = b) or (a = c) or (b = c) then
      writeln('Равнобедренный')
    else
      writeln('Разносторонний');
  end
  else
    writeln('Треугольник с такими сторонами не существует');
end.

Исправления и изменения:

1. Добавлена проверка на положительные числа, так как треугольник с отрицательными сторонами не существует.

2. Исправлены условия проверки на равносторонний и равнобедренный треугольник. Вы использовали "или" вместо "и", чтобы правильно определить равнобедренный треугольник.

3. Добавлено сообщение об отсутствии треугольника с заданными сторонами, если одна или несколько сторон отрицательны.