РЕШАТЬ ИНФОРМАТИКУ
вообще не понимаю в написании программ

249

269

Посмотреть ответы 2

Ответы на вопрос:

anaragaitova1

Информатика

4,4(16 оценок)

я её не знаю ссори а так бы

wylia

Информатика

4,8(1 оценок)

Var f: text; s,st: string; i: integer; begin st: ='.: ; '; assign (f,'c: \input.txt'); reset (f); read (f,s); close(f); writeln('считана строка: ',s); i: =1; repeat if pos(s[i],st)> 0 then begin delete(s,i,1); i: =i-1; end; i: =i+1; until i> length(s); writeln('новая строка: ',s); readln; end.