Pascal

[Smiling]

Помогите пожалуйста сделать задачу.
Строки
Составить программу для подсчета числа одинаковых букв в строках X и Y равной длины, стоящих на одних и тех же местах.
Заранее спс.

 

[vitjok]

Составить программу для подсчета числа одинаковых букв в строках X и Y равной длины, стоящих на одних и тех же местах.

вроде так)

var s:string;
    a,b,c,i:integer;
begin write('vvevite:');
      readln(s);
      a:=0;b:=0;
      for i:=1 to length(s) do
        begin if s[i]='x' then a:=a+1;
              if s[i]='y' then b:=b+1;

        end;
      writeln(' x=',a);
      writeln(' y=',b);

end.

 

[Vladimir_S]

вроде так)

Нет. Витёк, Вы меня, конечно, извините, но то, что Вы выложили - какая-то галиматья несусветная. Точнее, мне кажется, что Вы не поняли условия задачи. А именно:
1. Вводятся ДВЕ строки.
2. Определяется количество букв, одинаковых в обеих строках и стоящих на одних и тех же позициях.
Например, если
X='скамья', а Y='свинья', то ответом будет N=3 (символы "с", "ь", "я").
Решение:

Var
 X,Y:String;
 N,i:Byte;
Begin
 Writeln('Enter the string X:');
 Readln(X);
 Repeat
  Writeln('Enter the string Y:');
  Readln(Y);
  If Length(X)<>Length(Y) then
   Writeln('Error: different lengths!');
 Until Length(Y)=Length(X);
 N:=0;
 For i:=1 to Length(X) do
  If X[i]=Y[i] then Inc(N);
 Writeln('N=',N);
 Readln
End.

 

[vitjok]

Да Владимир я не понял задания)