паскаль, поставить после каждого вопросительного знака восклицательный (т.е. заменить в строке все вопросительные знаки (?) на знаки (?!)
Ответы
Ответ дал:
0
Borland Pascal 7
uses Crt;
var
s:string;
i:integer;
begin
ClrScr;
Readln(s);
for i:=length(s) downto 1 do
if s[i]='?' then Insert('!',s,i);
Writeln(s);
ReadKey
end.
uses Crt;
var
s:string;
i:integer;
begin
ClrScr;
Readln(s);
for i:=length(s) downto 1 do
if s[i]='?' then Insert('!',s,i);
Writeln(s);
ReadKey
end.
Вас заинтересует
1 год назад
1 год назад
1 год назад
6 лет назад
7 лет назад