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

Оформить в Паскале: Даны целые числа A, B, x. Вычислить значение функции Y=f(x), если заданы условия, при которых известна формула для вычисления Y.

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

Var
 A,B,x:integer;
 y:real;
begin
 readln(A,B,x);
 if x=3
  then
   y:=(B-sin(B))/A
  else
   if x=7
    then
       y:=A*B-B*A/x
    else
     if x=10
      then
       y:=x+A
      else
       if (x mod 3 =0) and (x>6)
        then
         y:=B-x
        else
         if (x mod 5 = 0) and (x mod 4 = 0) and (x<65) and (x<>60)
          then
            y:=x
          else
            y:=35;
writeln(y(,x,)=,y);
end.