Составить программы: 1.дана строка символов, среди которых есть двоеточие. определить, сколько символов следуют за двоеточием. 2.дана строка символов, среди которых есть одна открывающаяся и одна закрывающаяся скобка. подсчитать, сколько слов расположено внутри этих скобок. 3.дана строка. удалить из нее все запятые и подсчитать, сколько получилось удаленных символов. , !

andrey231132 andrey231132    3   01.04.2019 12:30    9

Ответы
dmxboy dmxboy  28.05.2020 05:37

1)

var

  str : string;

begin

  readln (str);

  writeln (length (str) - pos (':', str));

end.

 

2)

var

  str, s : string;

  count, i : integer;

begin

  readln (str);

  s := copy (s, pos ('(', str) + 1, pos (')', str) - pos ('(', str) - 1);

  count := 0;

  for i := 1 to length (s) do

    if s[i] = ' ' then inc (count);

  writeln (count + 1);

end.

 

3)

var

  str : string;

  count : integer;

begin

  readln (str);

  count := 0;

  while pos (',', str) > 0 do

  begin

    inc (count);

    delete (str, pos (',', str), 1);

  end;

  writeln (str);

  writeln (count);

end.

 

Сделано без проверки на соответствие условию.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика