• Предмет: Информатика
  • Автор: торетто1998
  • Вопрос задан 2 года назад

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

Ответы

Ответ дал: AlinaRadaeva04
1
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.
Похожие вопросы