Program pole i obwód trójkąta

f~i;

I]:

EEF!

ZAD4.PAS:2

igram poleli is crt;

i* bok_a_J.bok_b,bok_c „p,pole :real;

lin

•ser;

writelnC*Program obliczający pole trojkata¹ >;

writeC'Podaj bok_a: ');

readlnCbok_a>;

write<^łPodaj bokjb: ^J>;

readln(bok__b>»

write<^łPodaj bok__c: ');

readlnCbok_c>;

if <(bok_a>0>and<bok_b>0>and<bok_c>0>> then if < < C bo k_a +bo k_b > >bo k_c > an d C < bo k_a+bo k_c > >bo k. begin

p:=<bok_a+bok_b⁺bok_c>/2;

pole:=sqrt<p*<p-fook_a>*<p-bok_b>*<p-bok_c>>;

writelnC' pole: ^J » po le: 0" 2 )»

end

else writelnC*wprowadziłeś sle wartości¹ > else writelnC wprowadziłeś sle wartośći^J>»