найдите ошибку.. она не работает(( program PLОСНАD; ...
найдите ошибку.. она не работает((
program PLОСНАD; var А,В,С:real; D:real; Р:real; S:real; begin writeln('Задайте стороны A,В,С:'); read(А,В,С); Р:=(А + В + С)/2; D:=A; if D<B then D:=B; if D<C then D:=C; if P>D then begin S:=SQRT(P*(P-A)*(P-B)*(P-C)); writeln ('ПЛОЩАДЬ:',S) end else writeln (A,B,С, '- не являются сторонами треугольника'); end.
Есть ответ
18.12.2022
365
Ответ
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 D
Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
Просто нажмите на кнопку "Подарить".
18.12.2022