free Pascal
Объяснение:
var
a, b, c : integer;
s, p : double;
begin
writeln('Input a, b, c :');
readln(a, b, c);
p := (a+b+c)/2;
s := sqrt(p*(p-a)*(p-b)*(p-c));
writeln();
writeln('S=',s:2:2);
end.
free Pascal
Объяснение:
var
a, b, c : integer;
s, p : double;
begin
writeln('Input a, b, c :');
readln(a, b, c);
p := (a+b+c)/2;
s := sqrt(p*(p-a)*(p-b)*(p-c));
writeln();
writeln('S=',s:2:2);
end.