Реализовать в виде модуля

[Assya]

Реализовать в виде модуля набор подпрограмм для выполнения следующих операций со строками:
1. процедура удаления части строки до точки с запятой и самой точки с запятой;
2. процедура определения имеются ли в строке все буквы входящие в слово "змея";
3. функция определения количества ввода в строку группы символов 123.

 

[nayke]

Реализовать в виде модуля набор подпрограмм для выполнения следующих операций со строками:
1. процедура удаления части строки до точки с запятой и самой точки с запятой;
2. процедура определения имеются ли в строке все буквы входящие в слово "змея";
3. функция определения количества ввода в строку группы символов 123.

1. Delete(stroka,SymbolBegin,Pos(';',s)-SymbolBegin);
2. for i:= 1 to length(snake) do 
if Pos(snake[i],stroka)=0 then begin Writeln('а буковки то не все');result:=false;break;end;
3. while Pos('123',stroka)<>0 do
begin
inc(count);
Delete(stroka,Pos('123',stroka),3);
end;