// PascalABC.NET 3.0, сборка 1164 от 11.02.2016 begin var s:=ReadlnString('Введите текст:'); if (Pos('Л',s)>0) and (Pos('Е',s)>0) and (Pos('С',s)>0) then Writeln('Можно составить слово "ЛЕС"') else Writeln('Нельзя составить слово "ЛЕС"') end.
Тестовое решение: Введите текст: ВСТАЛО СОЛНЦЕ НАД СЕЛОМ Можно составить слово "ЛЕС"
Введите текст: КАРЛ У КЛАРЫ УКРАЛ КОРАЛЛЫ Нельзя составить слово "ЛЕС"
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
