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.
Объяснение:
рисунок блочной схемы не осилю
а хотя почему бы и не сделать зарисовку
за соответствие стандартам рисования этого рисунка блоками именуемой схемой не отвечаю но он делался по примерам из интернета. Язык изложения учитывался только рисованной форме блоков и была сделана подача русским языком взамен паскалного языка с маленькими видоизменениями слов действий внутри текста на слова действия из русского языка то есть попростому перевод был сделан. Надеюсь это зайдёт.
#include <iostream>
#include <math.h>
using namespace std;
int main()
{
int x, faktorial;
faktorial = 1;
cout << "vvedite x" << endl;
cin >> x;
if(x <= 0)
{
cout << "x dolgen bit' > 0" << endl;
return 0;
}
cout << "faktorial " << x " = "; //выводим заготовку для результата, так как x будет меняться
do
{
faktorial *= x; //faktorial = faktorial * x;
}
//если в условие цикла подставить число, то 0 преобразуется к "ложь", а ненулевое значение к "истина"
while(--x);//уменьшаем x на 1, затем проверяем его на 0
cout << faktorial << endl;
return 0;
}
Объяснение: