Question

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

Answer 1

var x,temp:string;
     first,last:char;
     k1,k2:integer;
begin
   write ('X = ');
   readln (x);
   k1:=0;
   k2:=0;
   first:=x[1];
   last:=x[length(x)];
   temp:=x;
   while (pos(first,temp)>0) do
    begin
      inc(k1);
      delete (temp,pos(first,temp),1);
    end;
   temp:=x;
   while (pos(last,temp)>0) do
    begin
      inc(k2);
      delete (temp,pos(last,temp),1);
    end;
   if (k1>k2) then writeln ('First') else
    if (k2>k1) then writeln ('Last') else
      writeln ('Equal');
end.