4.1. [Pascal | Basic] Вычислить сумму Z = 1 + 2 + 3 + ... . Вычисления прекратить, когда значение Z превысит заданное значение A.

4.2. [Pascal | Basic] Проверить, есть ли в заданной целочисленной последовательности a₁ , a₂ , ..., a_N   элементы, равные нулю.  Если есть,  найти номер первого из них, если нет – выдать соответствующий текст.

4.3. [Pascal | Basic] Для заданного числа x вычислить первое из чисел последовательности  sin x,  sin sin x,  sin sin sin x, ...,  меньшее по модулю 10^–2.

4.4. [Pascal | Basic] Выяснить, имеются ли в заданном векторе A(N) два подряд идущих нулевых элемента.

4.5. [Pascal | Basic] Выяснить, имеются ли в заданном целочисленном векторе A(N) три подряд идущих элемента одного знака.

4.6. [Pascal | Basic] Множество точек в пространстве задано своими целочисленными координатами. Определить, совпадает ли хотя бы одна из точек с началом координат.

4.7. [Pascal | Basic] Если у заданного вектора A(N) есть хотя бы один элемент, меньший, чем  –5, то все отрицательные элементы заменить их квадратами, оставив остальные элементы без изменения; в противном случае вектор домножить на 0,1.

4.8. [Pascal | Basic] Имеется последовательность чисел a₁, a₂ , ..., a_N . Найти сумму первых из них (считая слева направо), произведение которых не превышает заданного числа М.

4.9. [Pascal | Basic] Задано целое A>1. Найти наименьшее целое неотрицательное k, при котором 5^k>A.

4.10. [Pascal | Basic] Все элементы заданного вектора A(N), начиная с первого по порядку положительного элемента, уменьшить на единицу.

4.11. [Pascal | Basic] Числа Фибоначчи (F_i) определяются по формулам
  F₀ = F₁= 1; F_i = F_i–1+ F_i–2 при i = 2, 3, ...
Найти первое из чисел Фибоначчи, которое превосходит заданное число M (M>0).

4.12. [Pascal | Basic] Выяснить, имеeтся ли среди чисел i³ – 17• i• n² + n³ , i= 1, ..., n, хотя бы  одно число, которое кратно заданному числу А и не кратно заданному числу В
(A<>B). При существовании такого числа требуется вычислить сумму всех тех элементов, которые предшествовали ему.

4.13. [Pascal | Basic] Определить, имеются ли среди элементов побочной диагонали заданной целочисленной матрицы A(N,N) числа, равные нулю.

4.14. [Pascal | Basic] Найти любое трёхзначные число, кратное заданному Р и не равное ему.

4.15. [Pascal | Basic] Вычислить приближённое значение бесконечной суммы:

4.16. [Pascal | Basic] Если в заданном целочисленном векторе A(N) есть элементы со значением, равным заданному числу B, то переменной С присвоить значение, равное сумме всех элементов, предшествующих первому по порядку такому элементу; в противном случае вывести соответствующий текст.

4.17. [Pascal | Basic] Дана последовательность из N целых чисел. Определить, со скольких положительных чисел она начинается.

4.18. [Pascal | Basic] Среди чисел
 
найти номер и значение первого по порядку числа, абсолютная величина которого меньше заданного eps > 0 . Если таких чисел нет, вывести на печать соответствуюший текст.

4.19. [Pascal | Basic] Определить, имеется ли в заданном массиве A(N) хотя бы одна пара соседних чисел, являющихся взаимнообратными.

4.20. [Pascal | Basic] Определить, выполняются ли для заданного вектора A( 2N ) условия: а₁=а_2N ,  a₂= a_2N–1 , ...,  a_N= a_N+1, т.е. является ли он симметричным относительно своей середины.

4.21. [Pascal | Basic] Имеется монотонно убывающая последовательность чисел a₁ , a₂ , ..., a_N . Определить квадрат суммы положительных членов этой последовательности.

4.22. [Pascal | Basic] Если в заданном целочисленном векторе A(N) есть элементы со значением, равным заданному числу B, то переменной С присвоить значение, равное произведению всех элементов, следующих за первым по порядку таким элементом; в противном случае вывести соответствующий текст.

4.23. [Pascal | Basic] Определить, имеется ли в заданном целочисленном массиве X(N) число, кратное заданным числам А и В, и не кратное числу С.

4.24. [Pascal | Basic] Дано натуральное N. Выяснить, сколько цифр оно содержит.

4.25. [Pascal | Basic] Найти сумму цифр заданного натурального числа.

4.26. [Pascal | Basic] Цифры заданного натурального числа записать в обратном порядке.

4.27. [Pascal | Basic] Проверить, все ли элементы заданного массива A(N) положительны.

4.28. [Pascal | Basic] Найти наименьший делитель заданного натурального числа A (не считая единицы).

4.29. [Pascal | Basic] Определить, является ли заданное натуральное число палиндромом (палиндром – число, одинаково читаемое слева направо и справа налево).

4.30. [Pascal | Basic] Определить по данным музейного каталога, есть ли в музее хотя бы одна картина Левитана или Шишкина. Если есть, выдать ее название, в противном случае выдать соответствующий текст.

4.31. [Pascal | Basic] Определить по прейскуранту, можно ли подобрать в спортивном магазине велосипед, стоимость которого не превышает имеющуюся у покупателя сумму.

4.32. [Pascal | Basic] Известен начальный вклад клиента в банк и процент годового дохода. Определить, через сколько лет вклад превысит заданный размер и каков при этом будет размер вклада.

4.33. [Pascal | Basic] Торговая фирма в первый день работы реализовала товаров на  P тыс. руб., а затем ежедневно увеличивала выручку на 3%. Какой будет выручка фирмы в тот день, когда она впервые превысит заданное значение Q ? Сколько дней придется торговать фирме для достижения этого результата?

4.34. [Pascal | Basic] Малое предприятие в первый день работы выпустило P единиц товарной продукции. Каждый последующий день оно выпускало продукции на Q единиц больше, чем в предыдущий. Сколько дней потребуется предприятию, чтобы общее количество выпущенной продукции за все время работы впервые превысило запланированный объем?

4.35. [Pascal | Basic] Определить, имеется ли в заданном множестве точек на плоскости хотя бы одна, принадлежащая заштрихованной на рисунке области (на рисунках даны окружности с единичным радиусом и парабола y=x²):