Дана строка символов. удалить из нее первый знак препинания. Язык 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.
Не нашли ответ?
Похожие вопросы