Дана строка символов. Получить новую строку, удалив первый знак препинания

12.06.2012, 11:53. **Показов** 1519. **Ответов** 1

Author24 — интернет-сервис помощи студентам

Дана строка символов. Получить новую строку, удалив первый знак препинания.

@noname32 · 13.06.2012, 13:40

Pascal

var s: string;
    i: integer;
begin
    Writeln('Введите строку:');
    Readln(s);
    for i:= 1 to Length(s) do
        if s[i] in ['.', '!', '?', ',', ';', '-', '"']
            then begin
                Delete(s, i, 1);
                Break;
            end;
    Writeln;
    Writeln('Новая строка:');
    Writeln(s);
    Readln;
end.

IKratosI
		1
	Дана строка символов. Получить новую строку, удалив первый знак препинания 12.06.2012, 11:53. Показов 1519. Ответов 1 Метки нет (Все метки) Дана строка символов. Получить новую строку, удалив первый знак препинания.

	13.06.2012, 13:40

Дана строка символов. Получить новую строку, удалив первый знак препинания

Решение