3 Задачи

1) Дано целое число n. Подсчитать произведение четных цифр в нем.

2) Дано целое число n. Найти произведение нечетных цифр в нем.

3) Дано натуральное число n. Подсчитать сумму нечетных цифр в нем.

4) Дано натуральное число n. Подсчитать сумму четных цифр в нем.

5) Дано целое число n. Получить новое число, удалив из данного все цифры "2".

6) Дано целое число х. Получить число, удалив из данного все "3".

7) Дано натуральное число n. Выяснить, можно ли представить n! в виде произведения трех последовательных целых чисел.

8) Простым называется число, которое делится без остатка только на единицу и на само себя. Даны числа n и m. В натуральном ряду, начиная с числа n, найти m ближайших простых чисел и получить их сумму.

9) Найти все несократимые дроби, заключенные между 0 и 1, знаменатели которых не превышают 7 (дробь задается двумя натуральными числами - числителем и знаменателем).

10) Дано натуральное число n. Найти наибольшую цифру числа.

11) Дано натуральное число n. Найти наименьшую цифру числа.

12) Назовем натуральное число палиндромом, если его запись читается одинаково с начала и с конца (например 4884, 121, 1). Найти все меньшие 100 натуральные числа, которые при возведении в квадрат дают палиндром.

13) Дано натуральное число n. Верно ли, что оно содержит ровно три одинаковые цифры?

14) Дано натуральное число n. Оставить в этом числе только те цифры, которые не нарушат упорядоченность цифр по возрастанию.

Например: 17239 - 123, 7659 - 79

15) Даны натуральные числа n, m. Получить сумму m первых цифр числа n.

16) Даны натуральные числа х, у. Получить произведение у первых цифр числа х.

4 Тесты

Истина или ложь?

11. По завершении работы оператора цикла for..to..do значение считается неопределенным.

12. В Turbo Pascal не допускается использование вложенных циклов.

13. В теле цикла с параметром for..to..do разрешается явно изменять значение параметра цикла.

14. Тело цикла while..do в Turbo Pascal выполняется до тех пор, пока условие истинно.

15. Тело цикла repеat..until в Turbo Pascal выполняется до тех пор, пока условие истинно.

16. В операторе цикла с постусловием условие проверяется до выполнения тела цикла.

17. Тело цикла repеat..until следует обязательно заключать в операторные скобки.

18. Параметр цикла с параметром, а также начальное и конечное значения могут принадлежать любому порядковому типу.

19. Параметр цикла for..downto..to может изменяться только на плюс единицу.

20. Если условие истинно, то тело цикла while..do не будет выполнено ни разу.

Работа №4

Тема: Решение задач с использованием множеств

Цель: Ознакомиться с понятием множество закрепить на практике операции, применяемые над множествами

1 Перечень знаний и умений, необходимых для выполнения лабораторной работы

Перед тем, как приступить к выполнению лабораторной работы, студенту необходимо ознакомиться со следующим материалом:

• понятие множества и способы его объявления в Turbo Pascal;

• название и синтаксис операций применяемых над множествами.