Рдчшдпчевжмлатж Лев адевщнгаг пгрзщнза. Вдпсюрвн. Ангеле
Вот на Pascal:
uses graphabc;
var a,b,c:longint;
begin
write('Введите a,b и c треугольника');
readln(a,b,c);
write('Периметр - ',a+b+c);
write('Площадь - ',a*b*c);
write('Code by Grisha Sheldunov');
end.
Var c:real;
Begin
WriteLn('z = 9/(2c-1)');
Write('c = ');ReadLn(c);
if 2*c-1=0 then WriteLn('Ошибка: На ноль делить нельзя!')
else WriteLn('z = ',9/(2*c-1))
End.