Работа 3.8 Упр.16 ГДЗ Семакин 10 класс (Информатика)

Задача

Рассмотрим вариант решения задания из учебника Семакин, Хеннер, Шеина 10 класс, Бином: 16. Дана строка. Указать те слова, которые содержат хотя бы одну букву «к». *Цитирирование задания со ссылкой на учебник производится исключительно в учебных целях для лучшего понимания разбора решения задания. 10 semakin10 pract/3-8/16 98

Подробный ответ

Разобьём строку на слова и запишем их в массив b. Для этого просматриваем исходную строку посимвольно: если встречается пробел, начинаем новое слово, иначе добавляем символ к текущему слову.

Затем для каждого слова проверяем, есть ли в нём хотя бы одна буква к. Если такая буква найдена, выводим это слово.

var
a, t: string;
b: array[1..10] of string;
i, k, j, f: integer;
begin
  readln(a);
  k := 1;
  for i := 1 to length(a) — 1 do
    if a[i] = ‘ ‘ then inc(k) else b[k] := b[k] + a[i];
  for i := 1 to k do
  begin
    t := b[i];
    f := 0;
    for j := 1 to length(t) do
      if t[j] = ‘к’ then f := 1;
    if f = 1 then write(b[i], ‘ ‘);
  end;
  readln;
end.