Составить программу, которая позволяет ввести две строки одинаковой длины и определяет, сколько раз у них совпадают символы, стоящие в одной и той же позиции.

Question

Информатика

Мара

25 декабря, 16:01

Составить программу, которая позволяет ввести две строки одинаковой длины и определяет, сколько раз у них совпадают символы, стоящие в одной и той же позиции.

+3

Ответы (1)

Знаете ответ?

Ипат · Answer 1

Var s1, s2 : String;

i, n : Byte;

Function Min (a, b : Byte) : Byte;

Begin

If a
end;

Begin

Readln (s1) ;

Readln (s2) ;

n:=0;

For i:=1 to Min (Length (s1), Length (s2)) do If s1[i]=s2[i] then Inc (n) ;

Writeln (n) ;

end.