Question

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

Answer 1

var

   s: string;

begin

   Read(s);

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

       WriteLn('да')

   else

       WriteLn('нет')

end.

Answer 2

Программа на языке Паскаль:

program CheckLetterP;

var
  word: string;
  i: integer;
  containsP: boolean;

begin
  containsP := false;
  
  write('Введите слово: ');
  readln(word);
  
  for i := 1 to length(word) do
  begin
    if (word[i] = 'P') or (word[i] = 'p') then
    begin
      containsP := true;
      break;
    end;
  end;
  
  if containsP then
    writeln('Да, буква "P" входит в слово.')
  else
    writeln('Нет, буква "P" не входит в слово.');
  
end.

Эта программа запрашивает у пользователя слово и затем проверяет каждую букву в слове, чтобы увидеть, содержит ли оно букву "P" (в любом регистре). Если буква "P" найдена, программа выводит "Да, буква "P" входит в слово.", в противном случае программа выводит "Нет, буква "P" не входит в слово.".