Задание на текст

[Natusi4ka]

Ввести текст.В зависимости от номера варианта вычислить
1)Входит ли введенное слово в текст.
2)Сколько слов начинается с заданной буквы.
3)Сколько в предложении пробелов.

Помогите пожалуйста сделать,кому не лень...

[_-Re@l-_]

3)Сколько в предложении пробелов.

Uses crt;
var s:string;
     n,i:integer;
begin
       clrscr;
       write('s = ');
       readln(s);n:=0;
       for i:=1 to length(s) do
       if copy(s,i,1)=' ' then n:=n+1;
       write('n = ',n);
       readln;
end.

[cheef]

program sadas;
var a,b,i:integer;
s,m:string;
begin
writeln('vvedite text');
readln(m);
writeln('vvedi slovo dlya poiska');
readln(s);
for i:=1 to length(m) do
if m[i] = ' ' then b:=b+1;
writeln(b);
readln;
end.

Самое лёгкое сделал пробелы нашёл .
Опоздал, но пусть у автора будут два решения проблемы .

program sadas;
var a,b,i:integer;
s,m,k:string;
begin
writeln('vvedite text');
readln(m);
writeln('vvedi slovo dlya poiska');
readln(s);
for i:=1 to length(m) do
if m[i] = ' ' then b:=b+1;
writeln('probelov ',b);
k:=copy(s,1,1);
b:=0;
for i:=1 to length(m) do begin
if ((m[i] = ' ')and(m[i+1]=k))   then b:=b+1;
end;
writeln('slov s bukvoi - ',b);
readln;
end.

Вот ещё и сколько слов на такую букву начинается считает вот только не могу сделать, чтобы 1 слово в предложении, если буква совпадает добавляло.

[Ketchup]

Вот, проверяет есть ли слово в предложении. Только вот, когда будете сдавать работу, в примерах вводите одинаковые слова с точностью до регистра, то есть, Катя и катя - разные слова

PHP код:

Uses crt;
var text,s:String;
Begin
 clrscr;
Write('Vvedite tekst:'); ReadLn(Text);
Write('Vvedite slovo:'); ReadLn(S);
if pos(S,Text)<>0 then
 WriteLn('Slovo estj.')
else WriteLn('Takogo slova net');
ReadLn;
End. 


[Девочка-Скандал]

to Ketchup
в фразе монета, ранетки, сонет
есть слово нет?

А ваша программа выдаст что есть!

[Ketchup]

Ох, дико извиняюсь, я сначала думала об этом, а потом с головы вылетело... сейчас что-то придумаю.

[Ketchup]

Вот теперь правильно

PHP код:

Uses crt;
var text,s,S1:String;
    b: boolean;
Begin
 clrscr;
Write('Vvedite tekst:'); ReadLn(Text);
Write('Vvedite slovo:'); ReadLn(S);
 Repeat
  if pos(' ',Text)>0 then
  begin
  S1:=Copy(Text,1,pos(' ',Text)-1);
  Delete(Text,1,pos(' ',Text));
  if S1=S then
   begin
    WriteLn('Slovo estj.');
    b:=true;
    break;
   end;
  end;
  until pos(' ',Text)=0;
  if (Text<>'')and(b=false) then
   if Text=S then
   begin
   WriteLn('Slovo estj');
   b:=true;
   end;
  if b=false then writeLn('Takogo slova net');
ReadLn;
End.