Cоставьте программу заменяющую в заданном тексте все буквосочетания "да" на "нет".

Question

Информатика

Кристина

1 октября, 08:11

Cоставьте программу заменяющую в заданном тексте все буквосочетания "да" на "нет".

+5

Ответы (1)

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

Мишара · Answer 1

Var

a:longint;

s:string;

begin

read (s) ;

while pos ('да', s) >0 do

begin

a:=pos ('да', s) ;

delete (s, a, 2) ;

insert ('нет', s, a)

end;

writeln (s)

end.