Программа для случая, когда слова отделяются друг от друга одним пробелом: var s,s1,s2,smax:string; c:char; p,k,i,max:integer; begin writeln('Введите строку:'); readln(s); writeln('Введите букву:'); readln(c); s1:=s+' '; max:=0; p:=pos(' ',s1); while p>0 do begin s2:=copy(s1,1,p-1); k:=0; for i:=1 to length(s2) do if s2[i]=c then k:=k+1; if k>max then begin max:=k; smax:=s2; end; delete(s1,1,p); p:=pos(' ',s1); end; writeln('smax = ',smax); end.
Пример: Введите строку: строку и букву нужно ввести самостоятельно с клавиатуры Введите букву: о smax = самостоятельно
Answers & Comments
Verified answer
Программа для случая, когда слова отделяются друг от друга одним пробелом:var
s,s1,s2,smax:string; c:char; p,k,i,max:integer;
begin
writeln('Введите строку:');
readln(s);
writeln('Введите букву:');
readln(c);
s1:=s+' ';
max:=0;
p:=pos(' ',s1);
while p>0 do
begin
s2:=copy(s1,1,p-1);
k:=0;
for i:=1 to length(s2) do
if s2[i]=c then k:=k+1;
if k>max then begin max:=k; smax:=s2; end;
delete(s1,1,p);
p:=pos(' ',s1);
end;
writeln('smax = ',smax);
end.
Пример:
Введите строку:
строку и букву нужно ввести самостоятельно с клавиатуры
Введите букву:
о
smax = самостоятельно