Дана строка, содержащая текст.найти количество слов, начинающихся с буквы d.

Var  s: string;   p, nb: integer;   begin  write('text? ');   readln(s);   p : = 1;   while p < = length(s) do begin  while (s[p] = ' ') and (p < = length(s)) do inc(p);   if (p < = length(s)) and (s[p] = 'b') then inc(nb);   while (s[p] < > ' ') and (p < = length(s)) do inc(p);   end;   write('num words: ', nb);   end.

var

  x : array [1..15] of integer;

  i : integer;

  min : integer;

  kol_nol : integer;

begin

  kol_nol : = 0;

  for i: =1 to 15 do

  begin

  write ("введите элемент массива: ");

readln(x[i]);

end;

min : = x[1];

for i : = 0 to 15 do

begin

  if (x[i] > 0) then

  begin

  if (x[i] < min) then

  begin

    min : = x[i];

  end;

  end;

  if (x[i] = 0) then

  begin

  inc(kol_nol);

  end;

 

writeln(min);

writeln(kol_nol);

end;

  я тут немного отсебятины добавил, что бы программа не слетала если что-то нерпавильное вводиш))

 

 

vara: string; b: integer; beginwriteln ('введите строку'); read (a); if (a='город минск')then writeln ('город минск')elsebeginwriteln ('введите "город минск", 1-продолжить, 0-выйти'); read (b); end; while (b = 1) dobeginwriteln ('введіте строку'); read (a); if (a='город минск')then writeln ('город минск')elsebeginwriteln ('введите "город минск", 1-продолжить, 0-выйти'); read (b); end; end;

end.