Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

Даны 2 слова. Определить сколько начальных букв первого слова совпадает с начальными буквами второго слова

Ответ оставил Гость

1) uses crt;
2) var
3) s1,s2:string;
4) i,k:integer;
5) begin
6) k:=0;
7) writeln(pervoe slovo?);
8) readln(s1);
9) writeln(vtoroe slovo?);
10) readln(s2);
11) for i:=1 to length(s1) do begin
12) if (s1[i]=s2[i]) and (k=i-1) then
13) k:=k+1;
14) end;
15)writeln(k);
16)End.