• 
  • 30 December 2020
  Информатика
  • Автор: chertuga

  

  действительные числа A, B, C. если нельзя построить треугольник с такими сторонами, то напечатать 0, иначе 3, 2 или 1 в зависимости от того, равносторонний этот треугольник, равнобедренный или какой-либо другой.

• 
  • 30 December 2020
  • Ответ оставил: MrFasty5

  var a,b,c:integer;

  begin

  writeln('Введите три стороны через пробел:');

  read(a,b,c);

  if (a<b+c) and (b<a+c) and (c<a+b) then begin

  if (a=b) and (b=c) and (a=c) then

  writeln('3');

  if (a=b) or (b=c) or (a=c) xor ((a=b) and (b=c) and (a=c)) then

  writeln('2');

  if (a<>b) and (b<>c) and (a<>c) then

  writeln('1');

  end

  else

  writeln('0');

  end.

  0
• 
  • НЕ НАШЛИ ОТВЕТ?

  Если вас не устраивает ответ или его нет, то попробуйте воспользоваться поиском на сайте и найти похожие ответы по предмету школьной программы: информатика.
  На сегодняшний день (30.07.2026) наш сайт содержит 109576 вопросов, по теме: информатика. Возможно среди них вы найдете подходящий ответ на свой вопрос.

  Найти другие ответы
• Нажимая на кнопку "Ответить на вопрос", я даю согласие на обработку персональных данных

  Ответить на вопрос

Последние опубликованные вопросы