3. Створіть новий текстовий документ. Уставте в нього наведені математич- ні вирази. Збережіть документ у вашій папці у файлі з іменем завдан- ня 3.5.3.docx. 3 3 7 ' 6) ) 2 (12-x) = - 8' a) (x в) =(x-4) + 1 5; 2 - (2 – x) = o 21-2x) + 1 3 г) =-2.

Можно код сделать покороче, если ты об этом.

program tri;

var

a, b, c: real;

begin

writeln('Введите a,b,c:');

readln(a, b, c);

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

begin

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

writeln('Треугольник равносторонний') ;

if (((a = b) and (b <> c)) or

((b = c) and (b <> a)) or

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

writeln('Треугольник равнобедренный');

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

writeln('Треугольник произвольный') ;

end

else

writeln('такого треугольника нет') ;

end.

Ну вот, на 5 строчек короче, но смысл тот же.

Изменения:

Использовал if.. else вместо двух if при проверке положительности сторон. Собрал 3 if при проверке на равносторонность в один if.

Международная стандартизация — стандартизация, участие в которой открыто для соответствующих органов всех стран...

Под стандартизацией понимается деятельность, направленная на достижение упорядочения в ,определенной области посредством установления положений для всеобщего и многократного применения в отношении реально существующих и потенциальных задач

. Эта деятельность проявляется в разработке, опубликовании и применении стандартов.

Международный стандарт — стандарт, принятый международной организацией. Стандартом называется документ, в котором устанавливаются характеристики продукции, эксплуатации, хранения, перевозки, реализации и утилизации, выполнения работ или оказания услуг)))