• ПОМОГИТЕ,ПОЖАЛУЙСТА,очень срочно
    нужно написать программу в Pascal(ABC)

    question img

Ответы 1

  • Программа для случая, когда слова отделяются друг от друга одним пробелом:var s,s1,s2,smax:string; c:char; p,k,i,max:integer;beginwriteln('Введите строку:');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 = самостоятельно
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years