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.
F5
Или зеленая стрелочка возле верхнего меню
<span> 2*16=65536 бит =(/8) 8192 байт = (/1024) 8 Кбайт</span>
Миша - 5, музыка
Оля - 6, художка
Коля - 7, спорт