Данил дорохов для тебя пишу

var a : array[1..3] of integer;
i, indmineven, k : integer;
begin
repeat
writeln('введите три цифры, не менее одной чётной и хотя одну - не равную нулю');
readln(a[1],a[2],a[3]);
until ((a[1]< > 0) or (a[2]< > 0) or (a[3]< > 0))
and not (odd(a[1]) and odd(a[2]) and odd(
and (a[1] in [0..9]) and (a[2] in [0..9]) and (a[3] in [0..9]);

indmineven : = -1;
for i: =1 to 3 do
if not odd(a[i]) then begin
if indmineven< 0 then indmineven : = i
else
if a[i] end;
if indmineven < > 3 then begin
k : = a[indmineven];
a[indmineven] : = a[3];
a[3] : = k
end;
if a[1] then writeln(a[2],a[1],a[3])
else writeln(a[1],a[2],a[3]);
end.

Для записи данной математической формулы в виде арифметического выражения на Фортране, мы можем воспользоваться следующими шагами:

1. Начнем с объявления необходимых переменных. В данном случае, у нас есть две переменные - x и y, которым мы можем задать тип данных "вещественное" для хранения чисел с плавающей точкой. Для этого, мы можем использовать следующее объявление:
```
real :: x, y
```

2. Затем, мы должны записать арифметическое выражение, соответствующее данной математической формуле. В данном случае, математическая формула умножает значение x на значение sin(x) и затем вычитает значение y:
```
y = x * sin(x) - y
```

3. Теперь, у нас есть полное арифметическое выражение на Фортране. Чтобы он был понятен школьнику, можно добавить комментарии, объясняющие каждую часть выражения. Например:
```
! Рассчитываем значение sin(x) и умножаем его на x
y = x * sin(x)
! Вычитаем значение y из результата вычисления
y = y - y
```

4. Для полноценного программного кода на Фортране, мы также должны добавить объявление инициализации переменных и вывод результата. Возможно, программа будет иметь следующий вид:
```
program ArithmeticExpression
implicit none
real :: x, y

! Инициализация переменных
x = 2.0
y = 3.0

! Вычисление арифметического выражения
y = x * sin(x) - y

! Вывод результата
write(*,*) "Значение выражения: ", y

end program ArithmeticExpression
```

Это полная программа на Фортране, в которой математическая формула записана в виде арифметического выражения на Фортране. Комментарии объясняют каждую часть выражения и выводят результат. Школьник может скопировать эту программу в свою среду разработки на Фортране и запустить ее для проверки.

Добро пожаловать в нашу учебную аудиторию! Давайте решим задачу вместе.

В задаче нам даны три числа - x, y и z. Наша задача - вычислить значения переменных a и b.

Для начала, давайте разберемся, что означают числа x, y и z.

Переменная x обозначает число 3, переменная y обозначает число 4, а переменная z обозначает число 5.

Далее, нам даны формулы для вычисления a и b:

a = (sqrt(x) + sqrt(y)) / (z^2 + 1)

b = (1 + cos(y - x)) / 2 - sin^2(z)

Для вычисления a нам дана следующая формула:

a = (sqrt(x) + sqrt(y)) / (z^2 + 1)

Давайте подставим значения x, y и z в эту формулу:

a = (sqrt(3) + sqrt(4)) / (5^2 + 1)

Затем вычислим корни чисел 3 и 4:

sqrt(3) = 1.732

sqrt(4) = 2

Теперь заменим эти значения в формуле:

a = (1.732 + 2) / (5^2 + 1)

a = 3.732 / (25 + 1)

a = 3.732 / 26

a = 0.143

Таким образом, мы получаем значение a равным 0.143.

Теперь давайте рассмотрим формулу для вычисления b:

b = (1 + cos(y - x)) / 2 - sin^2(z)

Давайте сначала вычислим разность y - x:

y - x = 4 - 3

y - x = 1

Далее, вычислим cos(1):

cos(1) = 0.540

Заменим значение cos(y - x) в формуле:

b = (1 + 0.540) / 2 - sin^2(z)

Теперь рассмотрим sin^2(z):

sin^2(5) = 0.283

Заменим значение sin^2(z) в формуле:

b = (1 + 0.540) / 2 - 0.283

b = 1.540 / 2 - 0.283

b = 0.770 - 0.283

b = 0.487

Таким образом, мы получаем значение b равным 0.487.

Итак, ответ на задачу:

a = 0.143

b = 0.487

Я надеюсь, что я смог подробно и понятно объяснить решение данной задачи. Если у вас есть еще вопросы, пожалуйста, не стесняйтесь спрашивать!