Даны три произвольных числа a,b,c…

Question

Даны три произвольных числа a,b,c, значение которых задают длины сторон треугольника. Выведите 0, если нельзя построить треугольник с такими длинамисторон; 3, если получается равностороний треугольник; 2 равнобедренный; 1 в остальных случаях. Задача в Паскале!

Answer 1

55

sergiypt

01 марта 2023

program t3; var a,b,c: real; {допустимо поменять на integer}beginwriteln ('Vvedit a,b,c'); readln (a,b,c); if (a <= b+c) and (b <= a+c) and (c <= a+b) then writeln ('0'); elseif (a=c) and (c=b) then writeln (3); elseif (a=c) or (a=b) or (b=c) then writeln ('2'); elsewriteln ('1'); readlnend.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: