Question

Напишите программу в паскале:
Дано 2 строки. Сосчитать количество символов в первой строке, которых нет во второй.

Answer 1

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.

Answer 2

Cпасибо!