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

Question

Информатика

Добромила

13 августа, 10:08

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

+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.