По трем введенным с клавиатуры сторонам необходимо выяснить: 1 вариант (пк №1) - могут ли эти стороны образовать треугольник; программа аbc паскаль зациклить эту программу, тем самым дать возможность повторять запрос, используя «желаете повторить? y/n».

193

463

Посмотреть ответы 2

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

vdhfhsbh

Информатика

4,5(54 оценок)

Var a,b,c: integer; x: char; begin repeat write('a = '); readln(a); write('b = '); readln(b); write('c = '); readln(c); if (a+b> c)and(a+c> b)and(b+c> a) then writeln('стороны могут образовать треугольник') else writeln('стороны не могут образовать треугольник'); writeln('желаете повторить? (y/n)'); readln(x); until x='n'; end. пример: a = 3b = 5c = 4стороны могут образовать треугольник желаете повторить? (y/n) ya = 8b = 1c = 5стороны не могут образовать треугольник желаете повторить? (y/n)n