Программа в паскаль авс определите вид треугольника по известным углам при этом если сумма углов не равна 180 градусов,то программа должна сообщить,что введены некорректные данные,проверьте условие

Королина2022 Королина2022    1   21.06.2019 15:30    1

Ответы
elenanovikova1972 elenanovikova1972  17.07.2020 06:57
Var a,b,c:real;
begin
  writeln('введите значения трех углов:');
  readln(a,b,c);
  if (a+b+c)<>180 then writeln('введены некорректные данные')else
  if (a=90)or(b=90)or(c=90) then writeln('прямоугольный')else
  if (a=b)and(b=c) then writeln('равносторонний')else
  if (a=b)or(b=c)or(a=c) then writeln('равнобедренный')else
  writeln('разносторонний')
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика