Ответы на вопрос:
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.
Популярно: Информатика
-
Aruzhka00129.06.2023 07:06
-
ззннааййккаа12.04.2022 06:49
-
nikitamarar217721.02.2023 06:41
-
lassdeavs03.02.2023 09:49
-
eugenetroyan27.10.2021 19:18
-
BasketballGrand03.08.2021 17:20
-
adelya60605.09.2020 07:07
-
VictorTsoy6229.04.2022 18:27
-
Лллиззза09.09.2020 20:55
-
ololol121331.08.2020 07:14