Question

Напишите программу, которая считывает одну строку, после чего выводит «МЯУ», если в введённой строке есть подстрока «кот», и «ГАВ» в противном случае.

Пример 1
Ввод Вывод
Извините, пожалуйста, вы не подскажете, который час?
МЯУ
Пример 2
Ввод Вывод
Кто я? кто
ГАВ

Answer 1

PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018

Внимание! Если программа не работает, обновите версию!

begin

 if ReadlnString.ToLower.Contains('кот') then Print('МЯУ')

 else Print('ГАВ')

end.

Примеры

Извините, пожалуйста, вы не подскажете, который час?

МЯУ

Кто я? кто

ГАВ