Паскаль, поставить после каждого вопросительного знака восклицательный (т. е. заменить в строке все вопросительные знаки (?) на знаки (?!)

Question

Информатика

Вака

4 ноября, 16:56

Паскаль, поставить после каждого вопросительного знака восклицательный (т. е. заменить в строке все вопросительные знаки (?) на знаки (?!)

+4

Ответы (1)

Знаешь ответ?

Светланка · Answer 1

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.