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

Question

Информатика

Альберта

10 марта, 19:16

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

+4

Ответы (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.