Формат ввода Вводятся строки положительных целых чисел, записанных через пробел.
Формат вывода
Нужно найти строку с наибольшим количеством чисел, кратных семи. Если таких строк несколько, то выбрать ту, что встретилась первой. Вывести из этой строки числа, кратные семи, через запятую и пробел в исходном порядке.
Пример 1
Ввод Вывод
78 46 33 30 41 42 1 49 27 38 86 70 86 83
41 38 71 16 38 21 54 99 50 75
21 48 84 91 72 98 85 87 16 50 3
89 44 56 87 39 29 89 100 83
21, 84, 91, 98
Пример 2
Ввод Вывод
14 23 13 10 59
19 3 35 16 62 95 83 69 34 63
39 60 56 57 28 100 54 73
35, 63
Файл - Книга
Вложенная папка - Полка
Папка - Шкаф
Диск - Библиотека
Объяснение:
Все очень ассоциативно. Файлы содержат в себе информацию, как и книги, которые вы можете найти на полке в шкафу. Только вот файлы вы ищете в папках и во вложенных папках (вложенная — то есть папка сама лежит в папке). Файлы вам доступны по имени файла, точно также как и доступна вам книга по ее названию, когда вы ее покупаете или приходите в библиотеку. Библиотека, в таком случае, — это аналогия жесткому диску, на котором содержится вся информация компьютера (все папки, вложенные в них папки, и файлы лежащие в этих папках)
program z1;
var n,k:integer;
begin
k:=0;
write ('Введите натуральное число (n>9): ');
readln (n);
write ('Цифры натурального числа ',n);
while n>=10 do
begin
if n mod 10 < n div 10 mod 10 then k:=1;
n:=n div 10
end;
if k=1 then write (' НЕ расположены в порядке возрастания')
else write (' расположены в порядке возрастания')
end.
Объяснение:
Вводим число
Цикл с предусловием (условие число больше или равно 10)
Сравнение последней и предпоследней цифр числа, если последняя меньше, то k присваивается значение 1
n присваивается значение целочисленного деления на 10 (отбрасываем последнюю цифру числа)
Если k = 1, то цифры не расположены в порядке возрастания, иначе расположены