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

  

  Программа pascalABC
  Найти периметр треугольника , если треугольника не существует то вывести на экран: треугольника не существует.

• 
  • 09 December 2020
  • Ответ оставил: elenaklon

  var a,b,c: real;

  begin

  write('Введите стороны треугольника: ');

  readln(a,b,c);

  if (a + b <= c) or (b + c <= a) or (a + c <= b) then writeln ('Треугольника с такими сторонами не существует')

  else writeln('Периметр треугольника равен: ',a+b+c)

  end.

  0
• 
  • 09 December 2020
  • Ответ оставил: pryhodzichdavid

  var z,x,c: real;

  begin

  write('стороны треугольника: ');

  readln(z,x,c);

  if (z + x <= c) or (x + c <= z) or (z + c <= x) then writeln ('нет такого треугольника')

  else writeln('Периметр треугольника = ',z+x+c)

  end.

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

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

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

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

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