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

Вопрос посетителя

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

Ответ эксперта

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.

Скачать ответРаспечатать решение