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

292

450

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

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

smichuksvitlana

Информатика

4,4(50 оценок)

ты елсе пропустила в первом, когда начала второй запрос делать ну и в третьем что то пропустила)) и енд в 3 с конца без точки запятой))

Natalasorochynska

Информатика

4,5(20 оценок)

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< 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,c, '- не являются сторонами треугольника'); end.

не работало из-за того, что ты написала везде a,b,c буквами. я их просто заменил на и заработало.