Дана строка символов. удалить из нее первый знак препинания. Язык pascal.

Дана строка символов. удалить из нее первый знак препинания. Язык pascal.
Гость
Ответ(ы) на вопрос:
Гость
const a:array[1..4] of string=('!','?','.',','); var s:string; i,j,k:integer; begin readln(s); for i:=1 to length(s) do begin   for j:=1 to 4 do   if s[i]=a[j] then k+=1;   if k<>0 then break; end; delete(s,i,1); writeln(s); end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы