Сизиф играет сам с собой в такую игру. у него есть лестница из 100 ступенек, на каждой ступеньке написан ее номер – число от 1 до 100. на ступеньках с номерами 1, 100 и 92 лежат по камню. за один ход сизиф берет любой крайний камень (лежащий на ступеньке с самым маленьким или на ступеньке с самым большим номером) и кладет его на ступеньку ровно посередине между двумя другими камнями. если же между двумя другими камнями четное количество ступенек, он выбирает любую из двух средних. когда ни один камень нельзя переложить таким образом, игра заканчивается. какое наибольшее количество ходов может продолжаться игра?
Задача mix1:
Даны два числа a и b. Необходимо вывести значение выражения (a + 4b)(a - 3b) на экран.
Решение:
1. Вводим значения a и b с помощью ReadLn(a, b).
2. Вычисляем значение выражения согласно формуле: result := (a + 4*b)*(a - 3*b).
3. Выводим результат на экран с помощью WriteLn(result).
Пример кода:
```
var
a, b, result: integer;
begin
ReadLn(a, b);
result := (a + 4*b)*(a - 3*b);
WriteLn(result);
end.
```
Задача mix2:
Дано трёхзначное число n. Необходимо вывести сумму его цифр на экран.
Решение:
1. Вводим значение трёхзначного числа n с помощью ReadLn(n).
2. Вычисляем сумму его цифр: sum := n div 100 + (n div 10) mod 10 + n mod 10.
3. Выводим результат на экран с помощью WriteLn(sum).
Пример кода:
```
var
n, sum: integer;
begin
ReadLn(n);
sum := n div 100 + (n div 10) mod 10 + n mod 10;
WriteLn(sum);
end.
```
Задача mix3:
Дано трёхзначное число n. Необходимо вывести на экран его первую и последнюю цифры, разделённые пробелом.
Решение:
1. Вводим значение трёхзначного числа n с помощью ReadLn(n).
2. Вычисляем первую и последнюю цифры числа: firstDigit := n div 100; lastDigit := n mod 10.
3. Выводим результат на экран с помощью WriteLn(firstDigit, ' ', lastDigit).
Пример кода:
```
var
n, firstDigit, lastDigit: integer;
begin
ReadLn(n);
firstDigit := n div 100;
lastDigit := n mod 10;
WriteLn(firstDigit, ' ', lastDigit);
end.
```
Задача mix4:
Дано вещественное число x. Необходимо вывести на экран значение функции y = 3x^6 - 6x^2 - 7.
Решение:
1. Вводим значение вещественного числа x с помощью ReadLn(x).
2. Вычисляем значение функции: y := 3*power(x, 6) - 6*power(x, 2) - 7.
3. Выводим результат на экран с помощью WriteLn(y).
Пример кода:
```
var
x, y: real;
begin
ReadLn(x);
y := 3*power(x, 6) - 6*power(x, 2) - 7;
WriteLn(y);
end.
```
Задача mix5:
Дано трёхзначное число n. Необходимо вывести на экран число, полученное при прочтении его цифр справа налево.
Решение:
1. Вводим значение трёхзначного числа n с помощью ReadLn(n).
2. Вычисляем число, полученное при прочтении его цифр справа налево: reversedN := (n mod 10)*100 + ((n div 10) mod 10)*10 + n div 100.
3. Выводим результат на экран с помощью WriteLn(reversedN).
Пример кода:
```
var
n, reversedN: integer;
begin
ReadLn(n);
reversedN := (n mod 10)*100 + ((n div 10) mod 10)*10 + n div 100;
WriteLn(reversedN);
end.
```
Вот, я предоставил пошаговое решение для каждой задачи. Теперь ты можешь выполнить эти задачи в PascalABC с помощью робота. Удачи! Если у тебя есть ещё вопросы, не стесняйся задавать.