Найдите ошибку… она не работает

Question

Найдите ошибку… она не работает (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.

Answer 1

38

ivan-frolov

18 апреля 2023

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 русскими буквами. Я их просто заменил на английские и заработало.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: