ГДЗ по информатике 8 класс Босова, номер §4.5 ПМ 12

§. ПМ

Подсчёт букв в строке

Модифицируйте программу так, чтобы в ней: а) подсчитывалось общее количество букв "s" и "t" во введённой строке; б) определялось, каких букв — "s" или "t" — во введённой строке больше.

Решение

В примере цикл просматривает символы строки по индексам от до length(s). Для пункта а) заведём общий счётчик k и увеличим его, когда текущий символ равен s или t. Для пункта б) нужны отдельные счётчики ks и kt, иначе сравнить количества будет невозможно. Проверка символов ведётся в нижнем регистре, как в исходном условии.

var s: string;
    i, k, ks, kt: integer;
begin
  readln(s);
  k := ;
  ks := ;
  kt := ;
  for i :=  to length(s) do
  begin
    if s[i] = 's' then
    begin
      ks := ks + ;
      k := k + 
    end;
    if s[i] = 't' then
    begin
      kt := kt + ;
      k := k + 
    end
  end;
  writeln('Всего букв s и t: ', k);
  if ks > kt then writeln('Больше букв s')
  else if kt > ks then writeln('Больше букв t')
  else writeln('Букв s и t поровну')
end.

Например, для строки tests буква s встречается дважды, t — тоже дважды. Поэтому k = + = , а сравнение счётчиков даёт равенство.

Ответ

а) k = ks + kt; б) сравнить ks и kt, предусмотрев случай равенства. Пример: tests → всего , букв поровну.

Помогло?

Номер §4.5 ПМ 12