Составить программу в Паскале.

Заменить в тексте слово "sin" на слово "cos" и подсчитать количество замен.

Question

Информатика

Михайла

18 апреля, 05:58

Составить программу в Паскале.

Заменить в тексте слово "sin" на слово "cos" и подсчитать количество замен.

+4

Ответы (1)

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

Мира · Answer 1

Var y, x: string;

i, k: integer;

begin

k=0;

read (x) ;

for i:=1 to length (x) do

begin

y:=copy (x, i, 3) ;

If (y='sin') then begin

delete (x, i, 3) ;

insert ('cos', x, i) ;

k:=k+1;

end;

writeln (x) ;

writeln (k) ;

end.

Составить программу в Паскале.Заменить в тексте слово "sin" на слово "cos" и подсчитать количество замен.

Составить программу в Паскале.

Заменить в тексте слово "sin" на слово "cos" и подсчитать количество замен.