Забавная игра
Вы с друзьями играете в следующую игру. Друзья пишут на доске подряд N натуральных чисел. Ваша задача — найти как можно больше подряд идущих чисел, которые бы делились на одно и то же число, большее 1. Так как вручную искать ответ сложно, вы решили написать программу, которая сделает работу за вас.
Входные данные
В первой строке входных данных задано число N(1 ≤ N ≤ 100000). Во второй строке записано через пробел N целых чисел A1...AN(1 ≤ Ai ≤ 1000, 1 ≤ i ≤ N). Это те самые числа, которые написали ваши друзья. Они даны в том же порядке, в котором они расположены на доске.
Выходные данные
Ваша программа должна вывести одно целое число — наибольшее количество подряд идущих чисел заданной последовательности, которые бы делились на одно и то же натуральное число, большее 1.
Примеры
Ввод
Вывод
3
6 10 15
2
program season;
var
number_month: integer;
begin
write('Введите номер месяца: ');
read(number_month);
case number_month of
1, 2, 12: writeln('Зима.');
3..5: writeln('Весна.');
6..8: writeln('Лето.');
9..11: writeln('Осень.');
else writeln('Неверный номер месяца.');
end
end.
Объяснение:
program season; // Название программы
var
number_month: integer; // Целочисленная переменная, отвечающая за вводимый номер месяца с клавиатуры
begin // Начало программы
write('Введите номер месяца: '); // Вывод сообщения
read(number_month); // Ввод номера месяца с клавиатуры
case number_month of // Принимает значение переменной number_month
1, 2, 12: writeln('Зима.'); // Если значение переменной number_month = 1, 2, 12, то выводим "Зима"
3..5: writeln('Весна.'); // Если значение переменной number_month = 3, 4, 5, то выводим "Весна"
6..8: writeln('Лето.'); // Если значение переменной number_month = 6, 7, 8, то выводим "Лето"
9..11: writeln('Осень.'); // Если значение переменной number_month = 9, 10, 11, то выводим "Осень"
else writeln('Неверный номер месяца.'); // Иначе выводим сообщение об ошибке
end // Конец функции
end. // Конец программы