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

Question

Информатика

Альберт

1 августа, 00:38

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

+3

Ответы (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.