Составить Паскаль-программу, содержащую процедуру для вычисления функции:

Составить Паскаль-программу, содержащую процедуру для вычисления функции:
Гость
Ответ(ы) на вопрос:
Гость
program znanija_12709640;   var      x :real;      r: real; begin      write('Input x:');      read(x);      if (x > 0) then        r := Sin(x)      else        if  (x = 0) then            r := 0.5        else             r := Cos(x);    writeln(r); end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы