Question

se considera un fisier text. de selectet toate consoanele

Answer 1

var s,l:string;
t:text;
i,b:integer;
p,r:byte;

begin
assign(t,'fisier.txt');
reset(t);
read(t,s);
close(t);

l:='BbCcDdFfGgHhJjKkLlMmNnPpQqRrSsTtVvWwXxYyZz';

for i:=1 to length(s) do begin
r:=0;
for b:=1 to length(l) do begin
if l[b]=s[i] then inc(r);
if r=1 then write(s[i],' ');
if r=1 then break
end;
end;
end.