Задание:
Дан треугольник со сторонами a,b, с. Определить, является ли он равносторонним. На Pascal ABC
Решение:
program proverka; uses crt; var a,b,c: real; begin clrscr; write ('Введите A, B и C'); readln (a,b,c); if (a=b) or (a=c) or (b=c) then writeln ('Треугольник равносторонний') else writeln ('Треугольник не равносторонний'); readkey; end.
Знаете другой ответ?