Найти произведение четных чисел в промежутке от 23 до 5

Var i,s: longint; begin  s: =1;   for i: =23 downto 5 do beginif (i mod 2 = 0) then s: =s*i; end; writeln(s); end.

источники аналоговой информации(непрерывной):

1.        скрипка. может создавать звук любой высоты. переход от тона к тону происходит плавно и непрерывно.

2.        телевизор. луч кинескопа плавно и непрерывно перемещается по экрану, и яркость отдельных участков меняется плавно.

3.        телефон, громкость звука меняется плавно и непрерывно.

4.        картина, нарисованная художником с использованием большого количества оттенков красок.

5.        графики функций.  

источники цифровой (дискретной)  информации.

1.        фортепьяно . нельзя исполнить звуки между нотами «ми» и «фа». переход от ноты к ноте осуществляется скачком.

2.        монитор. яркость луча изменяется скачком – есть луч )яркая белая или цветная точка), нет луча (черная точка).

3.        музыкальный проигрыватель компакт дисков.

4.        компьютер

5.        мобильные телефоны.

#include < iostream> #include < cstdlib> #include < ctime> int main() {       using namespace std;       const int n = 10;   //количество элементов массива       int arr[n];       //как-нибудь заполняем массив       srand(time(0));       int i;       for (i = 0; i < n; ++i)             arr[i] = rand() % (n * n) + 1;       //выведем его на экран       for (i = 0; i < n; ++i)             cout < < arr[i] < < "    ";       cout < < endl;       int p;       for (i = 1; i < n; ++i)       {             p = i;             while (p % 2 == 0)                   p /= 2;             if (p == 1)                   cout < < "arr[" < < i < < "] = " < < arr[i] < < endl;       }       cout < < endl;       return 0; }