Var
s1,s2 : String;
n,i : Integer;
Begin
n:=0;
Readln(s1);
Readln(s2);
For i:=1 to Length(s1) do If Pos(s1[i],s2)=0 then Inc(n);
Writeln(n);
end.
Что бы наверняка охватить все возможные символы, пусть текст кодируется по стандарту UTF-16, т.е. 2 байта на символ.
Далее нужно измерить кол-во символов в строке, потом количество строк на странице, количество страниц в учебнике.
Таким образом получим емкость страницы:
(кол-во строк на стринце)*(кол-во символов в строке)*(кол-во страниц в учебнике)*2 = байт/учебник. Назовем полученную величину емкость учебника E;
Далее делим.
360 Кбайт: 360*1024 / E
1.44 Мбайт: 1.44 * 1024^2 / E
420 Мбайт: 420 * 1024^2 / E
6,4 Гбайт: 6.4 * 1024^3 / E
Ничего себе числа здесь...
В общем, <span>4 294 967 296, если я нигде не ошибся, это 2^32 => каждый пиксель занимает 32 бит памяти.
32*1024*1280=2^5*2^10*2^8*5=2^23*5 бит = 2^20*5 байт = 5 Мбайт.
Так что да, из предложенных вариантов подходит только карта на 64 Мбайта.</span>
Var n,m:integer;
begin
write('Число = '); readln(n);
write('Цифра = '); readln(m);
if (n div 100 = m)or(n div 10 mod 10 = m)or(n mod 10 = m)
then writeln('Цифра есть')
else writeln('Цифры нет');
end.
Пример:
Число = 519
Цифра = 5
Цифра есть
(1046000+2576) ×8 = 1.048.576 Бит
1.048.576 Бит = 131072 Байт = 128 КБ.
Ответ: 1.048.576 Бит.