Введите строку. Преобразуйте строку таким образом, чтобы после каждой цифры "2" стояли три символа "!" Выведите преобразованную строку на экран. Pascal

Question

Информатика

Емиля

4 октября, 12:34

Введите строку. Преобразуйте строку таким образом, чтобы после каждой цифры "2" стояли три символа "!" Выведите преобразованную строку на экран. Pascal

+1

Ответы (1)

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

Аксиньюшка · Answer 1

Var s: string;

i: integer;

begin

write ('строка: ') ; readln (s) ;

i:=1;

while i<=length (s) do

begin

if s[i]='2' then

begin

s:=copy (s, 1, i-1) + '!'+

copy (s, i+1, length (s) - i+3) ;

i:=i+3;

end;

i:=i+1;

end;

writeln ('новая строка: ', s) ;

end.