Предмет: Информатика,
автор: kuprinovitchilya
Как изменить программу чтобы в тексте удалить все знаки препинания?
Приложения:

Ответы
Автор ответа:
0
var s,p: string;
i: integer;
begin
write('Введите текст: ');
readln(s);
p:=s;
for i:=1 to length(s) do
if (s[i]='.') or (s[i]='!') or (s[i]='?') or (s[i]=',')
then delete(p,pos(s[i],p),1);
write('результат: ',p);
end.
Похожие вопросы
Предмет: Геометрия,
автор: Nikitakil7462
Предмет: Математика,
автор: deniskondratev828
Предмет: Алгебра,
автор: evamaksimo06
Предмет: История,
автор: Ann0329
Предмет: Алгебра,
автор: Dmitrymak