В первом вложении правильный код, во втором - пример картинки.
Жёсткий диск, оперативная память, флэш память. и.т.д
Program gt;
var a:string;
k,l,i:integer;
begin
readln(a);
//Сначала переведем вес текст в нижний регистр
l:=length(a);
k:=0;
for i:=1 to l do
begin
if(ord(a[i])>64)and(ord(a[i])<91)then a[i]:=chr(ord(a[i])+32);
if(a[i]='а')or(a[i]='у')or ... or(a[i]='е')then k:=k+1; //здесь вместо точек пиши как ////предедушие но с гласными(другими) буквами
end;
writeln(k);
end.
1. 2^6=64 Этажа
2. Количество часов в году: 365*24=8760. Для того, чтобы зашифровать столько дней потребуется 14 бит: 2^14=114688. Отбой. Здесь по-другому скорее всего. Шифруем все по-отдельности: На шифровку числа надо 5 бит, на шифровку месяца надо 4 бита, на шифровку часа 5 бит. Итого 24 бита на шифровку даты. Но первый вариант более экономичен с точки зрения ресурсов=)
3. каждая буква из 32 символьного алфавита кодируется 5 битами: 2^5=32. Сообщение из 24 символов несет инф. равную 24*5=120 бит=15 байт
4. Всего символов: 3*25*60=4500. 1125 байтов = 9000 бит (1125*8). В алфавите символов: 9000/4500=2. Два символа.
6. 2^3=8 подъездов
7. Всего символов: 60*40*10=24000. пусть каждый символ кодируется 5битами (достаточно на алфавит из 32 букв). Тогда книга будет занмиать 120000бит. 120000/8=15000байт. 15000/1024=16,65 КБайт
input
например:
а =int(input())
int обозначает что мы вводим цифры