Произошла проблема с интернетом
Войти
|
Регистрация
Turbo Pascal
:
Cătălina Rusu
20 мая 2020
Cine mă poate ajuta?
Elaboraţi o procedură ce calculează aria unui triunghi după formula lui Herones.
3
Комментарии
20 мая 2020 18:03
Petru Cristea
procedure aria(a, b, c: real);
begin
var p, s: real;
p := (a + b + c) / 2;
s := sqrt(p * (p - a) * (p - b) * (p - c));
writeln('Aria = ', s);
end;
20 мая 2020 18:35
Cătălina Rusu
ответила
Petru Cristea
Mai ușor decât credeam
Mulțumesc frumos.
Обновить
Для того чтобы оставить комментарий,
войдите
или
зарегистрируйтесь
begin
var p, s: real;
p := (a + b + c) / 2;
s := sqrt(p * (p - a) * (p - b) * (p - c));
writeln('Aria = ', s);
end;