Паскаль АВС! Составить программу,определяющую какая буква слова x(первая или последняя)...

Question

Паскаль АВС! Составить программу,определяющую какая буква слова x(первая или последняя) чаще встречается в слове y.

Answer 1

VAR
   s: String;
   k1,k2,i: LongInt;
BEGIN
   Read(s);
   
   k1 := 0; k2 := 0;
   for i := 1 to Length(s) do begin
      if (s[i] = s[1]) then Inc(k1);
      if (s[i] = s[Length(s)]) then Inc(k2);
   end;
   
   if (k1 > k2) then Write('Первая буква встречается чаще последней буквы.');
    if (k1 < k2) then Write('Последняя буква встречается чаще первой буквы.'); 
   if (k1 = k2) then Write('Первая и последняя буквы встречаются одинаковое кол-во раз.'); 
END.