С клавиатуры вводится строка. Заменить в ней слово dog на слово cat.

Pascal ABC

Question

Информатика

Лукреция

16 июля, 19:19

С клавиатуры вводится строка. Заменить в ней слово dog на слово cat.

Pascal ABC

+5

Ответы (1)

Знаете ответ на вопрос?

Ольгуша · Answer 1

Var

S:string;

i, k:integer;

Begin

k:=0;

Write ('Введите строку: ') ; ReadLn (S) ;

For i: = 1 to Length (S) - 2 do

if S[i]='d' then

if S[i+1]='o' then

if S[i+2]='g' then

Begin

S[i]:='c';

S[i+1]:='a';

S[i+2]:='t';

End;

WriteLn ('Новая строка: ', S) ;

End.

С клавиатуры вводится строка. Заменить в ней слово dog на слово cat.Pascal ABC

С клавиатуры вводится строка. Заменить в ней слово dog на слово cat.

Pascal ABC