Предмет: Информатика, автор: kuprinovitchilya

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

Приложения:

Ответы

Автор ответа: AnonimusPro
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.

Похожие вопросы
Предмет: Математика, автор: deniskondratev828
Предмет: Алгебра, автор: Dmitrymak