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

Question

Йцукен · Accepted Answer

var 
 w: string; 
 p: integer; 
begin 
 write('слово? '); 
 read(w); 
 p := pos('т', w); 
 while (p <> 0) do begin 
 delete(w, p, 1); 
 p := pos('т', w); 
 end; 
 writeln('результат: ', w); 
end.

Bakhtiyor A.l. · Answer

vk.com/ topic- 31319900_26988026 - исходник.

vk. com / topic-31319900 _26988026 - убрать пробелы.