Говорят, что хороший математик знает, что в 1 километре 1000 метров. Но хороший информатик тоже знает, сколько в 1 Килобайте бит. Чему равен 1 Кбайт?

ответ: 8192 бит

Объяснение:

первый для однократной записи

а второй для перезаписывания(тоесть на нем возможно перезаписывание)

var

i,j,k: integer;

s,p: string;

begin

p: ='abcdefghijklmnopqrstuvwxyzабвгдеёжзийклмнопрстуфхцчшщъыьэюя';

readln(s);

k: =0;

for i: =1 to length(s) do

for j: =1 to length(p) do

if s[i]=p[j] then k: =k+1;

writeln(k);

end.