readln(new); repeat
if new<old then F:=false; old:=new; write(‘Введите x=’); readln(new);
until new=0;
if F then writeln(‘Последовательность возрастающая’) else writeln(‘Последовательность убывающая’);
end.
Для решения задачи:
−формируем тело программы и описываем переменные;
−вводим два первых числа и задаём начальное значение флага;
−в цикле ищем нарушение свойства членов возрастающей последовательности;
−меняем местами старый и новый элемент, и заменяем текущий новый элемент считанным значением;
−в зависимости от флага выводим результат.
Задание 3*
1.Дано натуральное число N. Определить, является ли оно про-
стым.
2.Дан интервал натуральных чисел от N до М. Определить все простые числа в этом интервале.
3.Дано натуральное число N. Определить все простые числа, не превосходящие N.
4.Дано натуральное число N. Разложить его на простые множи-
тели.
*При выполнение данных заданий использование строковых переменых запрещается.
32
5.Дано натуральное число N. Определить, является ли оно совершенным. Совершенное число N равно сумме всех своих делителей, не превосходящее само N.
6.Даны натуральные числа М и N. Определить, являются ли они взаимно простыми. Взаимно простые числа не имеют общих делителей, кроме 1.
7.Даны натуральные числа М и N. Определить их наибольший общий делитель NOD.
8.Даны натуральные числа М и N. Определить их наибольшее общее кратное NOK.
9.Дано натуральное число N. Определить, является ли оно автоморфным. Автоморфное число n равно последним разрядам квадрата этого числа: 5<_>25, 6<_>36, 25<_>625.
10.Дано натуральное число N. Определить, является ли оно палиндромом. Число-палиндром можно читать справа налево и слева направо: 44, 88, 121. 767767 и т.д.
11.Написать программу, определяющую количество десятичных цифр в заданном целом числе.
12.Написать программу, выводящую первые десять простых чисел.
13.Вводится последовательность из N целых чисел. Найти наибольшее из всех отрицательных чисел.
14.Вводится последовательность целых чисел. 0 – конец последовательности. Найти два наименьших числа.
15.Дана последовательность из N чисел. Определить, является ли она неубывающей.
16.Вводится последовательность ненулевых чисел. 0 – конец последовательности. Определить, является ли последовательность знакопеременной.
17.Введите последовательность из N произвольных чисел. Определить, сколько раз она меняет знак.
18.Вводится последовательность чисел. 0 – конец последовательности. Определить, содержит ли последовательность хотя бы два равных соседних числа.
33
19.Вводится последовательность ненулевых чисел; 0 – конец последовательности. Определить, является ли последовательность знакопеременной.
20.Определить количество трехзначных натуральных чисел, сумма цифр которых равна 7.
21.Написать программу поиска двузначных чисел, таких, что если к сумме цифр этого числа прибавить квадрат этой суммы, то получится исходное число.
22.Сумма цифр трехзначного числа кратна 7. Само число также делится на 7. Найти все такие числа.
23.Найти самую большую цифру целого числа.
24.Найти количество трехзначных положительных натуральных чисел, делящихся на 3 без остатка.
25.Найти количество цифр 7 в двухзначных числах.
26.Определить сумму цифр целого числа.
27.Написать программу представляющую любое целое число в виде 2 в степени n плюс остаток.
28.Найти все трехзначные числа, в десятичной записи которых нет одинаковых цифр. Операцией деления не пользоваться!
29.Составьте программу производящую деление натурального числа x на натуральное число y. Результат от деления должен быть выведен в виде x=q*y+r. q – частное, r – остаток (r<q). Опрецией деления не пользоваться!
34