Вычислить значение выражения

@eiffelerror · Регистрация: 23.11.2024

Author24 — интернет-сервис помощи студентам

Помогите составить алгоритм и программу для вычисления формулы

@Cyborg Drone · 24.11.2024, 01:11

Pascal

var
  y, x: real;
begin
  write('x = ');
  readln(x);
  if (x >= 1) and (x <= 3) then
    begin
      if x < 2 then y := arctan(x) + pi / 3
      else y := (1 - 5 * x) * sqrt(sin(x));
      writeln('y = ', y)
    end
  else writeln('y не определено');
  readln
end.

@eiffelerror 0 / 0 / 0 Регистрация: 23.11.2024 Сообщений: 6
		1
	Вычислить значение выражения 23.11.2024, 22:01. Показов 287. Ответов 1 Метки нет (Все метки) Помогите составить алгоритм и программу для вычисления формулы 0

	24.11.2024, 01:11

Вычислить значение выражения

Решение