Задание:
Найдите ошибку… она не работает (program PLОСНАD; var А, В, С: real; D: real; Р: real; S: real; begin writeln ('Задайте стороны A, В, С: '); read (А, В, С); Р: =(А + В + С) /2; D: =A; if DD then begin S: =SQRT (P*(P-A)*(P-B)*(P-C); writeln ('ПЛОЩАДЬ: ',S) end else writeln (A,B, С, '- не являются сторонами треугольника'); end.
Решение:
program PLOCHAD; var A,B,C: real; D: real; P: real; S: real; begin writeln ('Задайте стороны A,B,C: '); read (A,B,C); P: =(A+B+C) /2; D: =A; if DD then begin S: =SQRT (P*(P-A)*(P-B)*(P-C); writeln ('ПЛОЩАДЬ: ',S) end else writeln (A,B,C, '- не являются сторонами треугольника'); end. Не работало из-за того, что ты написала везде A,B,C русскими буквами. Я их просто заменил на английские и заработало.
Знаете другой ответ?