Предмет: Информатика,
автор: Аноним
2 задача, на паскале
Приложения:

Ответы
Автор ответа:
0
Ответ:
pascal
Объяснение:
Var s:string;
i:integer;
Begin
Writeln('Введите строку: ');
Readln(s);
i:=1;
while i<=Length(s) do
begin
if s[i] in ['.',',','!','?'] then Delete(s,i,1);
i:=i+1;
end;
Writeln('Результат: ', s);
End.
Интересные вопросы
Предмет: Английский язык,
автор: sima0505
Предмет: Русский язык,
автор: 201111
Предмет: Английский язык,
автор: Strawberri
Предмет: Физика,
автор: alina1392