Ввести 3 числа.ппроверить или могут они быть сторонами триунольника, если да то определить его тип: ровностороний, ровнобедреный, разностороний. (pascal)

215

429

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

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

gdaniiiurik123

Информатика

4,4(96 оценок)

Program treug; var a,b,c: integer; label l1,l2; begin l1: writeln ('укажите стороны треугольника: '); read (a,b,c); if (a< =0) or (b< =0) or (c< =0) then begin writeln ('проверьте правильность введенных данных'); goto l1; end; if (a=b) and (a=c) and (b=c) then begin writeln ('треугольник с указанными параметрами - равносторонний'); goto l2; end; if (a=b) or (a=c) or (b=c) then begin writeln ('треугольник с указанными параметрами - равнобедренный'); goto l2; end; writeln ('треугольник с указанными параметрами - разносторонний'); l2: end.