6. Текст программы.

Вариант а) :

Program Gorner1 ;

Uses CRT ;

Var y, x, i : integer ;

Begin

Read( x ) ;

y:=1 ;

For i := 2 to 11 do

y :=y  x + i ;

Write ( ‘y = ’, y ) ;

Readln

End .

Вариант б) :

Program Gorner2 ;

Uses CRT ;

Var y, x, i : integer ;

Begin

Read( x ) ;

y:=11 ;

For i := 10 downto 1 do

y :=y  x + i ;

Write ( ‘y = ’, y ) ;

Readln

End .

7. Индивидуальные задания

1. Даны 10 целых чисел. Определить количество положительных чисел, которые делятся без остатка на 3.

2. Определить количество целых трехзначных целых чисел, сумма цифр которых равна n.

3. Даны 10 целых чисел. Определить, сколько из них принимает максимальное значение.

4. Определить два наибольших числа из 10 чисел.

5. Определить два наименьших числа из 10 чисел.

6. Даны 20 вещественных чисел. Найти разность между минимальным и максимальным из них.

7. Даны 10 вещественных чисел. Определить наибольшее из отрицательных чисел и округлить его к ближайшему целому.

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

9. Напечатать в возрастающем порядке все трехзначные числа, в десятичной записи которых нет одинаковых цифр (операции деления не использовать).

10. Дано 30 вещественных чисел. Определить, сколько из них больше своих «соседей», т. е. предыдущего и последующего чисел.

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

12. Вычислить выражения:

а) Y=A⁷+ 2A⁶+3A⁵+ . . . +7A+8

б) Y=8A⁷+7A⁶+6A⁵+ . . . +2A+1

13. Даны целые числа K и N (N > 0). Вывести N раз число K.

14. Дано целое число N (> 0), являющееся некоторой степенью числа 2: N = 2^K.

Найти целое число K — показатель этой степени.

15. Даны два целых числа A и B (A < B). Вывести в порядке возрастания все

целые числа, расположенные между A и B (включая сами числа A и B), а

также количество N этих чисел.

16. Ввести N различных чисел. Найти среднее арифметическое всех чисел.

17. Найти сумму ряда с точностью e=0,001.

18. Дано натуральное число n. Верно ли, что сумма цифр этого числа является

нечётной.

19. Найти сумму ряда с точностью e=0,001.

20. Составить программу вычисления значений функций f(x) = x-sin(x) на

отрезке [0,pi/2] с шагом h= (b-a)/m. Результаты представить с точностью

0,0001.

21. Вычислить сумму 10 слагаемых 1+1/2+1/3+…+1/n.

22. Вывести на печать положительные значения функции f(x) =sin(x)+cos(5x)

для х, изменяющегося на отрезке [-5;5] c шагом 1,2.

23. Найти сколько слагаемых необходимо, чтобы сумма 2+4+6+… оказалась

больше 100.

24. Вывести на экран все простые числа в диапазоне от 2 до N. Протестировать

программу для N=100, N=300.

25. Вывести на печать отрицательные значения функции y=sin(x)+cos(5x) для х,

изменяющегося на отрезке [-3;9] c шагом 0,9.

26. Найти сколько множителей необходимо, чтобы произведение 2*4*6+…

оказалась больше 100.

27. Найти сумму чисел от 100 до 200, кратных 7. Подсчитать среднее

арифметическое этих чисел.

28. Найти сумму ряда с точностью e=0,001. Программу представить

в двух видах: цикл с предусловием и цикл с постусловием.

29. Натуральное число из n цифр является ся числом Армстронга, т.е. сумма его

цифр возведенная в степень n , равна самому числу

(153=1*1*1+5*5*5+3*3*3).Получить все числа Армстронга для n=4 и n=3.

30. Найти первый отрицательный член последовательности sin(tg(n/2)) для n,

изменяющегося следующим образом: n=1,2,3…