Написать программу функции y = (a^2-2b-c^2) / 3ab при значениях a=20 b=10 c=14

Question

Информатика

Толяна

24 марта, 10:44

Написать программу функции y = (a^2-2b-c^2) / 3ab при значениях a=20 b=10 c=14

+2

Ответы (1)

Знаете ответ?

Натуня · Answer 1

Var a, b, c:real;

Begin

Write ('a = ') ; ReadLn (a) ;

Write ('b = ') ; ReadLn (b) ;

Write ('c = ') ; ReadLn (c) ;

Write ('y = ', (a*a-2*b-c*c) / (3*a*b)) ;

End.