Решить в турбо дано натуральное число n, целые числа а1,а2,а3 вычислить сумму чисел массива ,кратных 4 .
290
292
Ответы на вопрос:
Заполнение с клавиатуры: var a: array[1..10000] of integer; i,n: integer; s: real; begin write('n = '); readln(n); write('введите a1..a',n,': '); s: =0; for i: = 1 to n do begin read(a[i]); if (a[i] mod 4 = 0) then s: =s+a[i]; end; writeln('s = ',s); end. заполнение случайными числами: var a: array[1..10000] of integer; i,n: integer; s: real; begin randomize; write('n = '); readln(n); write('a1..a',n,': '); s: =0; for i: = 1 to n do begin a[i]: =random(2*n+1)-n; write(a[i],' '); if (a[i] mod 4 = 0) then s: =s+a[i]; end; writeln; writeln('s = ',s); end.
Изменение кодировки с 7 бит на 16 бит, равно 7+9 = 16 бит. следовательно информационный объем каждого символа сообщения увеличится на 9 бит. так как объем информационного сообщения увеличился на 108 бит, следовательно количество символов в сообщение равно 108/9=12 символ ответ: длина сообщения - 9 символов.
Популярно: Информатика
-
zaj201525.07.2021 23:12
-
patimatgemmamailru13.04.2022 23:52
-
alievarena8116.10.2021 19:25
-
Данил2864525.11.2020 00:03
-
Maksim313124.02.2021 20:00
-
hzhwhsbsh21.06.2022 02:50
-
zFast8817.02.2021 13:52
-
kiscaki20.08.2022 18:48
-
TruLLa28.10.2022 07:52
-
марина192718.11.2022 19:22