Два игрока играют в следующую игру. На координатной плоскости стоит фишка. В начале игры фишка находится в точке с координатами (–2, –1). Игроки ходят по очереди. Ход состоит в том, что игрок перемещает фишку из точки с координатами (x, y) в одну из трех точек: (x + 3, y), (x, y + 4), (x + 2, y + 2). Игра заканчивается, как только расстояние от фишки до начала координат превысит число 9. Выигрывает игрок, который сделал последний ход. Кто выигрывает при безошибочной игре – игрок, делающий первый ход, или игрок, делающий второй ход? Каким должен быть первый ход выигрывающего игрока? Ответ обоснуйте.
Составить программу, которая вводит с клавиатуры три целых числа a,b,c (каждое число – отдельной командой «ввод»), заменяет каждое из этих чисел на его модуль и выводит на экран количество различных среди полученных трех чисел. Ничего, кроме этого количества, программа выводить не должна. Например, если все числа равны, программа должна выводить число 1. При использовании системы Free Pascal для представления целых чисел используйте тип LongInt.
Указание. Модуль целого числа можно вычислить следующим образом:
КуМир
|
Free Pascal
|
цел a
...
a := iabs(a)
|
var a: LongInt;
...
a := abs(a);
|
Пояснение. Ответом в этой задаче является программа, записанная на школьном алгоритмическом языке или языке Free Pascal. Эта программа должна быть подготовлена и проверена в среде программирования КуМир или Free Pascal и сохранена в одном файле средствами среды программирования. Далее этот файл должен быть загружен в экзаменационную работу средствами системы КТС ЕГЭ.
Не забудьте загрузить в Вашу экзаменационную работу файл с подготовленной Вами программой.
Составить программу, которая вводит с клавиатуры 10 целых чисел (каждое число - отдельной командой "ввод"), записывает их в массив с индексами от 1 до 10, затем выводит на экран 20 чисел: сначала все элементы массива в порядке возрастания индексов; затем элементы массива с четными индексами (от 2 до 10), и наконец, все элементы массива с нечетными индексами (от 1 до 9). Каждое число программа должна выводить в отдельной строке; ничего, кроме 20 чисел, программа выводить не должна. При использовании системы Free Pascal для представления целых чисел используйте тип LongInt.
Указание. Вывести число в отдельной строке можно следующим образом:
КуМир
|
Free Pascal
|
цел a
...
вывод a, нс
|
var a: LongInt;
...
writeln(a);
|
Пояснение. Ответом в этой задаче является программа, записанная на школьном алгоритмическом языке или языке Free Pascal. Эта программа должна быть подготовлена и проверена в среде программирования КуМир или Free Pascal и сохранена в одном файле средствами среды программирования. Далее этот файл должен быть загружен в экзаменационную работу средствами системы КТС ЕГЭ.
Не забудьте загрузить в Вашу экзаменационную работу файл с подготовленной Вами программой.
Составить программу, которая вводит с клавиатуры одно двухзначное натуральное чётное число n (10<= n <=98) и выводит на экран значение суммы кубов натуральных чисел с чередующимися знаками: 13−23+33−43+...+(n−1)3−n3. Если введенное число не является двухзначным или не является чётным, программа должна вывести на экран число 0. При использовании системы Free Pascal для представления целых чисел используйте тип LongInt. Ничего, кроме одного подсчитанного целого числа, программа выводить не должна.
Указание. Проверить, чётно ли целое число, можно так:
КуМир
|
Free Pascal
|
цел n
лог is_even, is_odd
...
is_even:= (mod(n, 2) = 0)
is_odd := (mod(n, 2) = 1)
|
var n: LongInt;
var is_even, is_odd: Boolean;
...
is_even:= (abs(n) mod 2 = 0);
is_odd := (abs(n) mod 2 = 1);
|
Пояснение. Ответом в этой задаче является программа, записанная на школьном алгоритмическом языке или языке Free Pascal. Эта программа должна быть подготовлена и проверена в среде программирования КуМир или Free Pascal и сохранена в одном файле средствами среды программирования. Далее этот файл должен быть загружен в экзаменационную работу средствами системы КТС ЕГЭ.
Не забудьте загрузить в Вашу экзаменационную работу файл с подготовленной Вами программой.
Составить программу, которая вводит с клавиатуры 4 целых числа x1,y1, x2,y2 (каждое число – отдельной командой «ввод»), рассматривает их как координаты двух точек на плоскости и выводит на экран целое число n, равное 0, 1 или 2, в зависимости от того, сколько из этих двух точек попало в выделенную область (включая границы). Программа не должна выводить ничего, кроме числа n. Например,
для четверки чисел 0, 3, 3, 0 программа должна выдать 0,
для четверки чисел 0, 2, 3, 1 программа должна выдать 1,
для четверки чисел 0, 0, 0, 1 программа должна выдать 2,
для четверки чисел 1, 2, 1, 2 программа должна выдать 2.
При использовании системы Free Pascal для представления целых чисел используйте тип LongInt.

Пояснение. Ответом в этой задаче является программа, записанная на школьном алгоритмическом языке или языке Free Pascal. Эта программа должна быть подготовлена и проверена в среде программирования КуМир или Free Pascal и сохранена в одном файле средствами среды программирования. Далее этот файл должен быть загружен в экзаменационную работу средствами системы КТС ЕГЭ.
Не забудьте загрузить в Вашу экзаменационную работу файл с подготовленной Вами программой.
Составить программу, которая задает массив А целых чисел из 10 элементов, вводит значения элементов массива с клавиатуры (каждый элемент – отдельной командой «ввод»), подсчитывает и выводит на экран вещественное число, равное среднему арифметическому тех элементов массива, у которых значение нечетно. Если таких элементов в массиве нет, программа должна вывести значение 0. Ничего, кроме подсчитанного числа, программа выводить не должна. При использовании системы Free Pascal для представления целых чисел используйте тип LongInt.
Указание. Проверить, чётно ли целое число, можно так:
КуМир
|
Free Pascal
|
цел n
лог is_even, is_odd
...
is_even:= (mod(n, 2) = 0)
is_odd := (mod(n, 2) = 1)
|
var n: LongInt;
var is_even, is_odd: Boolean;
...
is_even:= (abs(n) mod 2 = 0);
is_odd := (abs(n) mod 2 = 1);
|
Пояснение. Ответом в этой задаче является программа, записанная на школьном алгоритмическом языке или языке Free Pascal. Эта программа должна быть подготовлена и проверена в среде программирования КуМир или Free Pascal и сохранена в одном файле средствами среды программирования. Далее этот файл должен быть загружен в экзаменационную работу средствами системы КТС ЕГЭ.
Не забудьте загрузить в Вашу экзаменационную работу файл с подготовленной Вами программой.
Составить программу, удовлетворяющую следующим условиям. Программа может использовать не более одного массива из не более чем 100 числовых элементов и любое количество числовых или символьных переменных. На вход программе подается набор символов, состоящий из символов латинских букв, подчёркиваний и цифр от 0 до 9 и заканчивающийся символом '.' (точка). Программа должна сначала определить, есть ли в этом наборе хотя бы один символ десятичной цифры. Если такие символы есть, то программа должна определить, можно ли переставить их так, чтобы полученная последовательность десятичных цифр оказалась общепринятой записью десятичного числа и эта запись была бы симметричной (то есть, число читалось бы одинаково как слева направо, так и справа налево). В частности, в этой записи не должно быть ведущих нулей, за исключением случая записи числа ноль одной цифрой '0'.
Если соответствующих цифрам символов нет или требуемое число составить невозможно, то программа должна вывести на экран строку, содержащую двухсимвольное слово "NO". А если возможно, то в первой строке программа должна вывести трехсимвольное слово "YES", а во второй – десятичную запись симметричного числа (получаемого перестановкой цифр в наборе). Если таких чисел несколько, то программа должна вывести максимальное из них. Например, если на вход подается набор "rotor." (для краткости приводим его в виде строки), или набор "pi_3_14.", то программа должна вывести строку "NO", а если на вход подается набор "Do_not_911_to_09_do.", то программа должна вывести две строки:
YES
91019
Входные символы располагаются по одному в строке текста.
Программа должна вводить одной командой "ввод" ровно один очередной символ набора, как показано в указании ниже.
Указания по программированию.
Чтение с клавиатуры последовательности символов до точки может быть выполнено следующим образом:
КуМир
|
Free Pascal
|
сим c
...
ввод c
нц пока c <> '.'
...
ввод c
кц
...
|
var c: char;
...
readln(c);
while (c <> '.') do
begin
...
readln(c);
end;
...
|
Определить, является ли символ цифрой, можно следующим образом:
КуМир
|
Free Pascal
|
лог is_digit; сим c
...
is_digit :=(код('0')<=код(c) и код(c)<=код('9'))
|
var
c: char;
is_digit: boolean;
...
is_digit := ord(c) in [ord('0')..ord('9')];
|
Пояснение. Ответом в этой задаче является программа, записанная на школьном алгоритмическом языке или языке Free Pascal. Эта программа должна быть подготовлена и проверена в среде программирования КуМир или Free Pascal и сохранена в одном файле средствами среды программирования. Далее этот файл должен быть загружен в экзаменационную работу средствами системы КТС ЕГЭ.
Не забудьте загрузить в Вашу экзаменационную работу файл с подготовленной Вами программой. |