Написать программу по теме "ветвление в алгоритмах" для pascal. : определить существует ли треугольник со сторонами abc и, если существует, то какой он (равнобедренный, равносторонний, произвольный). заранее большое !

190

270

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

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

Uspex11111

Информатика

4,8(99 оценок)

(*pascal abc.net*)program triangle; var a,b,c: integer; beginwrite('введите стороны: '); readln(a,b,c); if (a=b) and (a=c) thenwrite('треугольник равносторонний')else if (a=b) or (b=c) or (a=c) then write('треугольник равнобедренный')else write('треугольник произвольный'); end.