Определить сколько букв "а" встречается до первой запятой в строке st, вводимой с клавиатуры.
Ответы
1) Ищем ближайшую сверху к 48 степень двойки - это 2^6 = 64, то есть каждого спортсмена можно закодировать минимум 6 битами. Половина спортсменом это 48/2 = 24, и если на каждого из них надо по 6 бит, то необходимый объем памяти: 24*6 = 144 бита
2) Ближайшая к 15 степень двойки это 2^4 = 16, значит по 4 бита на номер. Для 40 номеров нужно 4*40 = 160 бит
3) Всего в алфавите 5 символов, ближайшая к 5 степень двойки это 2^3 = 8, значит по 3 бита на символ. Каждый пароль кодируется 11*3 = 33 битами. А для хранения 33 бит нужно 33/8 = 4.125 байт, округляем до 5 байт (по условию). Значит на 20 паролей нужно 20*5 = 100 байт.
В 21-м веке программы стали неотъемлемой частью почти всех людей в мире. В мире насчитывается более миллиарда программ и каждый имеет возможность найти подходящую для него.
Но часто ли Вы задумываетесь какие программы будут в будущем? Какое предназначение они будут нести? На этот вопрос я постараюсь ответить. Что мы знаем о программах: они полезны, быстры, упрощают нам жизнь. Следовательно в будущем они будут быстрее и практичнее. Скорее всего в будущем каждая программа будет обладать искусственным интеллектом, который будет выполнять различные функции. И это позволит в разы ускорить взаимодействие человека с программой. Одна программа будет заменять сотню предыдущих, будет выполнять бытовые и не только работы. Например, допустим будет существовать программа от русских разработчиков "Сделаю ВСЕ", которая будет вам заводить будильник, отсылать машину на мойку, заправлять машину, поливать цветы, сообщать о погоде и о интересующих вас новостях. Каждый день мы шаг за шагом стремимся к этому промежутку времени, когда одна программа сможет облегчить нам жизнь в сотню раз.
Я считаю, что в будущем нас ждут прекрасные программы. Возможно, даже появятся такие программы, которые будут писать домашку за простых смертных. И это время будут по-истине удивительным и прекрасным!
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Uses CRT;
Var s: string; a: char; i,k: integer;
begin
Writeln('Vvedite stroku');
readln(s);
Writeln('Vvedite simvol');
readln(a);
For i:=1 to length(s) do
if s[i]=a then k:=k+1;
Writeln('Simvol ',a,' vstrechaetsa v stroke ',k,' raz');
readln
end.