ВУЗ:
Составители:
Рубрика:
For i := 1 to N+1 do Write( A[i] : 5 : 1); WriteLn;
ReadLn
End;
{--------------------------------------------}
BEGIN
InputOutput; {вызов процедуры ввода-вывода }
Insert; {вызов процедуры включения нового элемента}
Result; {вызов процедуры вывода результатов }
END.
Задачи для самостоятельного решения
4.1. Вычислите сумму Z = 1 + 2 + 3 + ... . Вычисления прекратите, когда значение Z
превысит заданное значение A.
4.2. Проверьте, есть ли в заданной целочисленной последовательности a
1
, a
2
, ... , a
N
элементы, равные нулю. Если есть, найдите номер первого из них, если нет - выдайте
соответствующий текст.
4.3. Для заданного числа x вычислите первое из чисел последовательности sin x, sin sin x,
sin sin sin x, ..., меньшее по модулю 10
-2
.
4.4. Выясните, имеются ли в заданном векторе A(N) два подряд идущих нулевых элемента.
4.5. Выясните, имеются ли в заданном целочисленном векторе A(N) три подряд идущих
элемента одного знака.
4.6. Множество точек в пространстве задано своими целочисленными координатами.
Определите, совпадает ли хотя бы одна из точек с началом координат.
4.7. Если у заданного вектора A(N) есть хотя бы один элемент, меньший, чем -5, то все
отрицательные элементы замените их квадратами, оставив остальные элементы без
изменения; в противном случае вектор домножьте на 0,1 .
4.8. Имеется последовательность чисел a
1
, a
2
, ... , a
N
. Найдите сумму первых из них
(считая слева направо), произведение которых не превышает заданного числа М.
4.9. Задано целое A>1. Найдите наименьшее целое неотрицательное k, при котором 5
k
> A.
4.10. Все элементы заданного вектора A(N), начиная с первого по порядку положительного
элемента, уменьшите на единицу.
4.11. Числа Фибоначчи (F
i
) определяются по формулам
F
0
= F
1
= 1; F
i
= F
i-1
+ F
i-2
при i = 2, 3, ...
Найдите первое из чисел Фибоначчи, которое превосходит заданное число M (M>0).
4.12. Выясните, имеeтся ли среди чисел i
3
- 17 i n
2
+ n
3
, i= 1, ..., n, хотя бы одно
число, которое кратно заданному числу А и не кратно заданному числу В (A<>B). При
существовании такого числа вычислите сумму всех тех элементов, которые
предшествовали ему.
For i := 1 to N+1 do Write( A[i] : 5 : 1); WriteLn; ReadLn End; {--------------------------------------------} BEGIN InputOutput; {вызов процедуры ввода-вывода } Insert; {вызов процедуры включения нового элемента} Result; {вызов процедуры вывода результатов } END. Задачи для самостоятельного решения 4.1. Вычислите сумму Z = 1 + 2 + 3 + ... . Вычисления прекратите, когда значение Z превысит заданное значение A. 4.2. Проверьте, есть ли в заданной целочисленной последовательности a1 , a2 , ... , aN элементы, равные нулю. Если есть, найдите номер первого из них, если нет - выдайте соответствующий текст. 4.3. Для заданного числа x вычислите первое из чисел последовательности sin x, sin sin x, sin sin sin x, ..., меньшее по модулю 10-2. 4.4. Выясните, имеются ли в заданном векторе A(N) два подряд идущих нулевых элемента. 4.5. Выясните, имеются ли в заданном целочисленном векторе A(N) три подряд идущих элемента одного знака. 4.6. Множество точек в пространстве задано своими целочисленными координатами. Определите, совпадает ли хотя бы одна из точек с началом координат. 4.7. Если у заданного вектора A(N) есть хотя бы один элемент, меньший, чем -5, то все отрицательные элементы замените их квадратами, оставив остальные элементы без изменения; в противном случае вектор домножьте на 0,1 . 4.8. Имеется последовательность чисел a1 , a2 , ... , aN . Найдите сумму первых из них (считая слева направо), произведение которых не превышает заданного числа М. 4.9. Задано целое A>1. Найдите наименьшее целое неотрицательное k, при котором 5k > A. 4.10. Все элементы заданного вектора A(N), начиная с первого по порядку положительного элемента, уменьшите на единицу. 4.11. Числа Фибоначчи (Fi) определяются по формулам F0 = F1 = 1; Fi = Fi-1 + Fi-2 при i = 2, 3, ... Найдите первое из чисел Фибоначчи, которое превосходит заданное число M (M>0). 4.12. Выясните, имеeтся ли среди чисел i3 - 17 i n2 + n3 , i= 1, ..., n, хотя бы одно число, которое кратно заданному числу А и не кратно заданному числу В (A<>B). При существовании такого числа вычислите сумму всех тех элементов, которые предшествовали ему.
Страницы
- « первая
- ‹ предыдущая
- …
- 50
- 51
- 52
- 53
- 54
- …
- следующая ›
- последняя »