Question

Разработайте программу, которая удаляет символ P из данной строки.
Паскаль

Answer 1

Ответ:

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.