Паскаль. за ! с клавиатуры вводится символьная строка. определите, сколько в ней цифр

Var s: string; k,i: integer; begin write('введите строку: '); readln(s); k: =0; for i: =1 to length(s) do   if (s[i]> ='0')and(s[i]< ='9') then k: =k+1; writeln('k = ',k); end. пример: введите строку: 13 апреля 2016 г .k = 6

// pascalabc.net 3.1, сборка 1218 от 12.04.2016 begin   write(readlnstring('> ').where(c-> c in ['0'..'9']).count) end. тестовое решение: > зде3сь спр14ята1ны 5 ци926ф5ры чи35сла8979 "пи" 15

program xxx;

    var i, n : integer;

                a, d : real

                      s: array[1..20] of real;

begin

    write('введите n-');

    readln (n);

    write('введите а=');

    readln(a);

    write('введите d=');

    readln(d);

    s[1]: =a;

    for i: =2 to n do

        s[i]: =a+d;

    write('арифметическая прогрессия: ');  

    for i: =1 to n do

              write(s[i]);

end.

 

 

пользоветель-это система их бывает много есле создать.

програмист-это человек который создает программу