Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

Сделайте задание 2 и 3 пожалуйста

Ответ оставил Гость

Program Num1;
var a, b, c , s, p, rb, ro :real;
begin
writeln (Введите стороны треугольника через пробел);
read (a,b,c);
p:= (a+b+c)/2;
s:= sqrt(p*(p-a)*(p-b)*(p-c));
rb:= s/p;
ro:= (a*b*c)/(4*s);
writeln (RB = ,rb:0:2, RO = ,ro:0:2);
end.

2)В конце программы будет написано:
данные
1418324196
результат:a=14,k=18