Дана строка (прочитать из файла). Удалить из неё все знаки препинания (. ; : , ! ?). Результат вывести на экран.
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
