Подсчитать, сколько букв надо исправить в слове Z, чтобы получилось слово K (Z,K - слова одинаковой длины). (программа Паскаль)

Question

Подсчитать, сколько букв надо исправить в слове Z, чтобы получилось слово K
(Z,K - слова одинаковой длины).

Answer 1

var
  z, k : String;
  i, c : Integer;
begin
  ReadLn(z);
  ReadLn(k);
  c := 0; for i := 1 to Length(z) do if z[i] <> k[i] then inc(c);
  WriteLn(c);
end.