0
Волшебник
12.05.25
✎
16:13
|
В прошлой задаче Задача про злобных пауков и боевого робота вы отправили боевого робота на планету злобных пауков, чтобы он там всех победил. Но при полёте случилось облучение ракеты нейтронной радиацией и у робота испортилась внутренняя программа, а именно сломалась важнейшая функция:
Функция ВычислительРаботаетКорректно()
Результат = 1 2 3 4 5 6 7 8 9; // испорченная строка
Возврат Результат = 10;
КонецФункции
В испорченной строке похерились знаки арифметических действий и, возможно, появились случайные пробелы. Перед началом боевых действий нужно восстановить функцию проверки вычислителя путём вставки знаков и, возможно, удаления лишних пробелов.
|
|
7
Прохожий
12.05.25
✎
16:46
|
Нужна ещё одна карта - Джокер. Тогда Джокер + 1 пики + 2 трефы + 3 бубны + 4 червы + пять + 6 червы + 7 бубны + 8 трефы + 9 пики. Итого 10 бубны, 10 трефы, 10 пики, 10 червы. Джокер равен минус пять.
|
|
8
Ильф
12.05.25
✎
17:27
|
&НаКлиенте
Процедура Команда1(Команда)
МассивЗнаков = Новый Массив;
МассивЗнаков.Добавить("+");
МассивЗнаков.Добавить("-");
МассивЗнаков.Добавить("/");
МассивЗнаков.Добавить("*");
МассивЗнаков.Добавить("");
Для Каждого П1 Из МассивЗнаков Цикл
Для Каждого П2 Из МассивЗнаков Цикл
Для Каждого П3 Из МассивЗнаков Цикл
Для Каждого П4 Из МассивЗнаков Цикл
Для Каждого П5 Из МассивЗнаков Цикл
Для Каждого П6 Из МассивЗнаков Цикл
Для Каждого П7 Из МассивЗнаков Цикл
Для Каждого П8 Из МассивЗнаков Цикл
Если ВычислительРаботаетКорректно(П1, П2, П3, п4, П5, П6, П7, П8) Тогда
Результат = "1%1 2%2 3%3 4%4 5%5 6%6 7%7 8%8 9"; // испорченная строка
Результат = СтрШаблон(Результат, П1, П2, П3, П4, П5, П6, П7, П8);
Результат = СтрЗаменить(Результат," ","");
Сообщить(Результат);
КонецЕсли;
КонецЦикла;
КонецЦикла;
КонецЦикла;
КонецЦикла;
КонецЦикла;
КонецЦикла;
КонецЦикла;
КонецЦикла;
КонецПроцедуры
&НаКлиенте
Функция ВычислительРаботаетКорректно(П1, П2, П3, п4, П5, П6, П7, П8)
Результат = "1%1 2%2 3%3 4%4 5%5 6%6 7%7 8%8 9"; // испорченная строка
Результат = СтрШаблон(Результат, П1, П2, П3, П4, П5, П6, П7, П8);
Результат = СтрЗаменить(Результат," ","");
Результат = Вычислить(Результат);
Возврат Результат = 10;
КонецФункции
|
|