Задача Игра в 9999 Антон и Борис увлечены новой игрой, суть которой заключается в следующем. Один из игроков, по жребию, становится ведущим. Ведущий придумывает четырёхзначное слово (возможно, с нулями в старших разрядах) и передаёт ход другому игроку. В дальнейшем игроки делают ходы по очереди.
Выполняя ход, игрок может увеличить одну из цифр текущего числа на 1, 2 или 3. Естественно, новое значение этой цифры не должно превосходить девяти. Игрок, получивший в результате хода число 9999, проигрывает.
Определите, выиграет ли ведущий игрок при заданном начальном числе, если в процессе игры ни Антон, ни Борис не будут совершать ошибок.
Входные данные
В первой строке записано количество подтестов Q (3 ≤ Q ≤ 10). В каждой из последующих строк записано одно число в диапазоне от 1 до 9998 — очередное придуманное ведущим игроком число. Незначащие нули в этих числах не записываются.
Для 10 % тестов во всех их подтестах десятичная запись придуманных чисел содержит три девятки.
Выходные данные
Выведите строку из Q символов. В очередной позиции этой строки записывается символ 'Y', если ведущий игрок выигрывает, и 'N' — в противном случае.
Начальное число — 5
Выполняем команды:
Первая команда — 5 + 1 = 6. Потом у нас идут три двойки. Это значит, что мы три раза подставляем какое-то число b к концу текущего (к концу 6). Т.к. в результате мы видим, что после шести у нас стоит две пятерки, это значит, что к шести доставили две пятерки. Третья команда — 2, но после нее идет единица, что говорит о том, что сначала в конец поставляется число b и потом все число увеличивается на единицу. Смотрим: в конце полученного числа стоит шесть. Если убрать единицу, то будет пять, что говорит о том, что число b равно пяти.
ответ: b = 5
1.
var s: string;
begin
write('Введите слово: ');
readln(s);
while (s<>'хватит') do
begin
writeln(s+'!');
write('Введите слово: ');
readln(s);
end;
writeln('До следующих встреч');
end.
2.
var i,n,max,min: integer;
begin
randomize();
n:=random(201)-100;
max:=n;
min:=n;
write(n,' ');
For i:= 2 to 20 do
begin
n:=random(201)-100;
write(n,' ');
if (n>max) then max:=n;
if (n<min) then min:=n;
end;
writeln('Наибольшее число: ',max);
writeln('Наименьшее число: ',min);
end.