E.1.3. Задачи для самостоятельной работы по теме: "Операторы цикла".

1. Вычисление 10! описать каждым из трех вариантов оператора цикла.

2. Определить значение переменной s после выполнения следующих операторов:
a) s:=0; i:= 0;
While i<5 Do i:= i+1; s:= s+1/i;
b) s:=0; i:= 0;
While i>1 Do Begin s:= s+1/i; i:= i-1 End;
c) s:=0; i:= 0;
Repeat s:= s+1/i; i:= i-1 Until i<=1;
d) s:=1; n:= 1;
For i:=2 To n Do s:= s+1/i;

3. Для заданного x вычислить порядковый номер первого из чисел
sin(x), sin(sin(x)), sin(sin(sin(x))),..., величина которого по модулю меньше 0,0001.

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

4. Дано 40 целых чисел. Найти максимальное число.

5. Дано 100 вещественных чисел. Вычислить разность между максимальным и минимальным из них.

6. Дана непустая последовательность различных натуральных чисел, за которой следует 0. Определить порядковый номер наименьшего из них.

7. Дано целое n > 0 и последовательность из n вещественных чисел, среди которых есть хотя бы одно отрицательное число. Найти величину наибольшего среди отрицательных чисел этой последовательности.

8. Дано n вещественных чисел. Определить, образуют ли они знакочередующуюся последовательность.

9. Дана непустая последовательность натуральных чисел, заканчивающаяся нулем. Найти количество четных элементов с номерами, кратными 5.

10 Дана последовательность из n вещественных чисел. Найти наиболее длинную последовательность подряд идущих нулей.

11. Дана последовательность из 40 целых чисел. Логической переменной присвоить значение True, если в последовательности нет нулевых элементов и при этом положительные элементы чередуются с отрицательными, и значение False иначе.

12. Даны последовательность из n целых чисел и целое число a. Найти номер первого вхождения a в последовательность или вывести сообщение, что элемента равного a в последовательности нет.

13. Дана последовательность из n вещественных чисел. Найти значение последнего отрицательного элемента.

14. Дана последовательность вещественных чисел, заканчивающаяся 0. Определить является ли она последовательностью вида

15. Дана последовательность натуральных чисел, заканчивающаяся 0. Если на четном месте находится элемент кратный 3, то заменить этот элемент на его квадрат. Полученную последовательность вывести.

16. Дана последовательность из m вещественных чисел. Найти количество элементов, которые больше своих соседей (a_n > a_n-1 и a_n>a_n+1).

17. Дана последовательность натуральных чисел из n элементов. Определить, является ли она последовательностью Фибоначчи.

18. Дана последовательность из 70 целых чисел. Определить с какого количества отрицательных чисел она начинается.

19. Дана последовательность, состоящая из 100 вещественных чисел. Определить является ли она возрастающей или убывающей.