Question

Составьте программу, которая проверяет, входит ли буква «P» в слово (ответ должен быть «да» или «нет»). На языке Паскаль

Answer 1

var

   s: string;

begin

   Read(s);

   if pos('Р', s) <> 0 then

       WriteLn('да')

   else

       WriteLn('нет')

end.