Как изменить программу чтобы в тексте удалить все знаки препинания? ​

Bayu1410 Bayu1410    3   21.11.2019 16:26    1

Ответы
эля779 эля779  10.10.2020 14:54

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика