Есть ответ 👍

Как запустить компиляцию кода

261
476
Посмотреть ответы 2

Ответы на вопрос:


например Ctrl+F5

Объяснение:


var

 s: string;

 i: integer;

begin

 readln(s);

 for i := length(s) downto 1 do

   if s[i] = 'P' then delete(s, i, 1);

 writeln(s);

end.

Популярно: Информатика