Const
n=10;
var
i,m,k:integer;
a:array[1..n] of integer;
begin
Randomize;
Write('Исходный массив: ');
for i:=1 to n do begin a[i]:=Random(90)+10; Write(a[i],' ') end;
Writeln;
Writeln('Введите целое число: '); Read(m);
k:=0;
for i:=1 to n do
if a[i]<m then Inc(k);
Writeln('Количество чисел, меньших ',m,' равно ',k)
end.
Тестовое решение:
Исходный массив: 42 89 49 25 96 87 94 93 41 28
Введите целое число:
50
Количество чисел, меньших 50 равно 5
1) N = 2^i
64 = 2^i
i = 6 бит глубина кодирования одного символа
2) 30 * 4 = 120 строк на 4 страницах текста
3) 7200 байт = 7200 * 8 = 57600 бит информационный объем сообщения
4) 57600 бит / 6 бит = 9600 всего символов в этом сообщении
5) 9600 символов / 120 строк = 80 символов в 1 строке этого сообщения
Ответ: 80 символов в 1 строке
//Pascal ABC.NET v3.1 сборка 1172
Var
c:char;
begin
readln(c);
if ((c>='a') and (c<='z')) or ((c>='A') and (c<='Z')) or ((c>='А') and (c<='п')) or ((c>='p') and (c<='ё')) then writeln('Буква') else writeln('Символ');
end.
Пример ввода:
ю
Пример вывода:
Буква