Question

Elaborati un program pascal folosind o procedura cu parametri care sterge consoanele dintr-un sir de caractere dat

Answer 1

var
  s:string;

procedure sterge(var s:string);
var
  x:string;
  i:integer;
  c:set of char;
begin
  c:=['q','w','r','t','p','s','d','f','g','h','j','k','l','z','x','c','v','b','n','m'];
  for i:=1 to length(s) do
    if not(s[i] in c) then x:=x+s[i];
  s:=x;
end;

begin
  read(s);
  sterge(s);
  write(s);
end.