Паскаль, поставить после каждого вопросительного знака восклицательный (т.е. заменить в строке все вопросительные знаки (?) на знаки (?!)
Паскаль, поставить после каждого вопросительного знака восклицательный (т.е. заменить в строке все вопросительные знаки (?) на знаки (?!)
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы