Даны натуральные числа n,b1,b2...bn. Найти те члены bk последовательности b1,b2...bn что при делении на 7 дают

остаток 1, 2, или 5.
-----------------------------------------------
Дано натуральное число n. Проверить, можна ли подать n! в виде произведения трёх последовательных целых чисел.
-----------------------------------------------
Два натуральных числа называются дружественными если каждое с них равно суме всех делителей другого, кроме самого

этого числа. Найти все пары дружественных чисел которые содержатся в диапазоне от 200 до 300.

1.

for i:=1 to n do if (b[i] mod 7) in [1,2,5] then writeln(i:8,b[i]:8);

2. и 3. - задачи НЕ НА МАССИВЫ. И если тебе наплевать на правила (осмысленность заголовка не означает, что в нем просто умные слова) - то и получи. Лень было создавать отдельные темы и называть по-человечески? Сделал бы по правилам - получил бы что-то более существенное. А так - тебе наплевать - ну и нам наплевать..

М

прочти правила раздела Задачи, они написаны вверху страницы, с красными циферками. Особенно пп. 1 и 6.