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