var a,b,c,s,t:real;
function f(a,b,c:real):real; begin
Result:= (2*a-b-cos(c/180*pi))/(3.5-abs(c));
end;
BEGIN
readln(s,t);
writeln( f(t,-3*s,2.5-t)+f(5.2,3*t,s-t) );
END.
Объяснение:
рисунок блочной схемы не осилю
а хотя почему бы и не сделать зарисовку
за соответствие стандартам рисования этого рисунка блоками именуемой схемой не отвечаю но он делался по примерам из интернета. Язык изложения учитывался только рисованной форме блоков и была сделана подача русским языком взамен паскалного языка с маленькими видоизменениями слов действий внутри текста на слова действия из русского языка то есть попростому перевод был сделан. Надеюсь это зайдёт.
