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

[Assya]

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

[Ybn2]

А на работки есть?

[Assya]

нет вообще ничего, голое задание!

[Assya]

И код надо написать в Turbo Delphi

[Ybn2]

1)

program Zadach1

{$APPTYPE CONSOLE}

uses
  SysUtils;
Var st:String;
begin
  Write ('Vvedite stroku:');
  ReadLn (st);
  Delete (st,1,pos(';',st));
  WriteLn (st);
  ReadLn;
end.

[Mad_Cat]

1)

procedure f1(var s:string);
begin
delete(s,1,pos(';',s));
end;

3)

function f3(s,st:string):integer;
var k:integer;
begin
k:=0;
while pos(st,s)<>0 do
begin
k:=k+1;
delete(s,1,pos(st,s)+length(st)-1);
end;
result:=k;
end;

2)

function f2(s1,s2:string):boolean;
var i:integer;
begin
result:=true;
for i:=1 to n do
if pos(s1[i],s2)=0 then exit;
result:=true;
end;

выносите в модуль и все)

[Assya]

Спасибо большое большое))))))

[Assya]

Люди! а напишите еще коды на задание под цифрами 2 и 3, пожалуйста!

[Hacker19_90]

Сообщение от Assya

Люди! а напишите еще коды на задание под цифрами 2 и 3, пожалуйста!

Зачем?? Будете выбирать лучший?

[Assya]

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