ПАСКАЛЬ. Составьте программу, которая определяет возможность получения слово "мать" из...

Question

ПАСКАЛЬ. Составьте программу, которая определяет возможность получения слово "мать" из введённой строки.

Comments

Получение это что? Наличие самого слова в строке или возможность составить слов из букв в строке?

Answer 1

// PascalABC.NET 3.1, сборка 1171 от 15.02.2016
begin
  var текст:=ReadlnString('->');
  var можно:=True;
  foreach var буква in 'мать' do
    if Pos(буква,текст)=0 then begin
      можно:=False; Break end;
  if можно then Writeln('Можно составить слово "мать"')
  else Writeln('Нельзя составить слово "мать"')
end.

Тестовое решение:
-> На острове растут пальмы
Можно составить слово "мать"