Написать программу для Pascal. Вот условие. Надеюсь на помощь.

Приложения:

Ответы

Ответ дал: throwGame
0
program asdasd;
    var s:string;
begin;
    read(s);
    if pos('рак',s) = 0 then write('Нет') else write('Да');
end.

Похожие вопросы