Вводится рост опр. кол-ва учеников в баскетбольную команду принимаются > 180 сколько учеников примут в команду и напишите коментарий к ним и делать в паскале
Var rost :array[1..100] of integer; n, i, k: integer; begin writeln('Введите общее количество участников'); readln(n); for i:=1 to n do read(rost[i]); for i:=1 to n do if (rost[i] >=180) then Inc(k); writeln(k); end.
Посчитаем сколько символов в сообщении: На странице 25 строк, в каждой из которых по 60 символов. Следовательно, на одной странице находится 25 х 60 = 1500 символов. Всего в сообщении 3 страницы, поэтому весь текст состоит из 1500 х 3 = 4500 символов. Определим сколько бит в исходном тексте. 1 байт = 8 бит, следовательно, 1125 байт = 9000 бит. В тексте, занимающем 9000 бит 4500 символов, следовательно, на 1 символ приходится 9000 : 4500 = 2 бита. При х битного бинарного кода можно закодировать 2 ^ 2 = 4 комбинации. ответ: в искомом алфавите 4 символа.
Дано: Страниц - 3 Строк - 25 Символов в строке - 60 Объём всего - 1125 байт Формулы: Нахождение общего количество символов: Страницы*Строки*Символов в строке=Общее количество символов Перевод из байт в биты: байты*8=биты Вычисление мощности алфавита: 2^b>=A (где A-мощность алфавита, b-количество бит, приходящееся на 1 символ) Решение: Вычислим общее количество символов: 3(страницы)*25(строки)*60(символы)=4500 символов Теперь вычислим число бит, выделяемое на хранение 1 символа: 1125 байт=9000 бит 9000(бит)/4500(символов)=2 бит Нахождение мощности алфавита: 2^2=4 символа ответ: 4
n, i, k: integer;
begin
writeln('Введите общее количество участников');
readln(n);
for i:=1 to n do
read(rost[i]);
for i:=1 to n do
if (rost[i] >=180) then Inc(k);
writeln(k);
end.
Пример входных данных
3
179 180 194
Выходные данные
2