Регистрация
tatyana101035
24.06.2023 07:58
Информатика
Есть ответ 👍

Арифметикалык орнектердин жазулы ережелерин жазыныз​

272
286
Посмотреть ответы 1

Ответы на вопрос:

Killy2
Killy2
4,4(17 оценок)
Var a,b,c : integer; begin write('a=');   readln(a); write('b=');   readln(b); write('c=');   readln(c); if (a+b< =c)or(a+c< =b)or(b+c< =a)   then writeln('треугольника не существует')   else if (a< > b)and(b< > c)and(a< > c)         then writeln('треугольник разносторонний')         else if (a< > b)or(b< > c) then writeln('треугольник равнобедренный')                                 else writeln('треугольник равносторонний'); end.

Популярно: Информатика