Написать программу для решения . дана строка, содержащая текст. сколько слов в тексте? сколько цифр в тексте?

ответ:

{подсчёт числа символов цифр в строке}

var s: string;   i,n: integer;

begin

        readln(s);

        n : = 0;

        for i: =1 to length(s) do begin // обходим строку в цикле

                if (s[i]> ='0')and(s[i]< ='9') then inc(n);

        end;

      writeln('this string contains ',n,' digits.'); // выводим массив

end.

program raf105;

var  

  s,s1,s2: string;

  slov,numb,i,j: integer;

begin

writeln('введите строку: ');

readln(s);

s: = lowercase(s);

s1: = 'йцукенгшщзхъфывапролджэячсмитьбюёqwertyuiopasdfghjklzxcvbnm';

s2: = '1234567890';

for i: =1 to length(s1) do

  if s[1] = s1[i]

    then slov+= 1

    else if (i< =length(s2)) and (s[1] = s2[i])

      then numb+=1;

for i: =2 to length(s) do

begin

  if s[i] = ' '

    then  

    begin

      for j: =1 to length(s1) do

        if s[i+1] = s1[j]

          then slov+= 1;

    end

    else

    begin

      for j: =1 to length(s2) do

        if s[i] = s2[j]

          then numb+= 1;

    end; ;

end;

writeln;

writeln('в строке: ');

writeln(slov,' сл.');

writeln(numb,' циф.');

end.

а)

var

    p,d,h: real;

begin

    readln(h);

    p: =1200*9.8*h;

    writeln(p);

end.

б)

var

    m,h,r: real;

begin

    readln(h);

    readln(r);

    m: =1200*3.14*h*r*r;

    writeln(m);

end;

в) необходимы дополнительные условия количество сосудов

если принять количество сосудов за k тогда

var

    i,k: integer;

    m,h,r,s: real;

begin

    readln(k);

    s: =0;

    for i: =1 to k do

    begin

            readln(h);

            readln(r);

            m: =1200*3.14*h*r*r;

            s: =s+m;

    end;

    writeln(s);

end.

(1+1/sqr((12*x), если без игрика, а как игрик впихнуть не могу