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

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.

Оцени ответ

Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!