На коленке конечно, но должно работать :-)))
Сто лет на пасе не писал :-)))
program bla-bla
var
f_in,f_out : text
s,d : string;
i,flag : integer;
c : char;
begin
assign(f_in,'file_in');
reset(f_in);
assign(f_out,'file_out');
rewrite(f_out);
while not eof(f_in) do
begin
readln(f_in,s);
d := '';
flag := 0;
for i := 1 to length(s)-1 do
begin
if (s[i] <> '.') and (flag = 1) then
begin
flag := 0;
c := s[i] ;
d := d + UpCase(c);
end
else
begin
d := d + s[i];
end;
if s[i] = '.' then
flag := 1;
end;
writeln(d,f_out);
end;
close(f_in);
close(f_out);
end. |
