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

Question

Информатика

Сеня

29 августа, 08:17

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

+5

Ответы (1)

Знаете ответ?

Лавруня · Answer 1

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 k0 then break;

end;

delete (s, i, 1) ;

writeln (s) ;

end.