Склавиатуры вводится строка состоящая из букв, знака пробела и циифр. определите количество цифр в этой строке

var

  s : string;

  i, c : integer;

begin

  readln (s);

  c : = 0;

  for i : = 1 to length (s) do

    if (ord (s[i]) > 47) and (ord (s[i] < 58) then inc (c);

  writeln (c);

end.

Program название программы; {$apptype console} uses     sysutils; var     a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,  s: integer; begin     writeln('enter 14 marks');     readln(a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14);               s: =(a1+a2+a3+a4+a5+a6+a7+a8+a9+a10+a11+a12+a13+a14) div 14;     writeln('average ', s);     readln end. название программы - замените на название программы (на  программа проверена в borland delphi 7. 

Одна из простейших игр со стратегией, разновидность игры  "ним".игра под названием "кто первый скажет "сто"? "чтобы первым достичь 100, надо заставить противника при его последнем ходе назвать число 90 до  99 - прибавив к  этому числу  от 10 до 1, мы выигрываем.  следовательно, при своем предпоследнем ходе, мы должны назвать число 89=100-(10+1).  перед этим надо назвать числа 89-11=78, 67, 56, 45, 34, 23, 12, 1.начальное число 1 можно найти сразу как остаток от целочисленного деления 100 на 11. а далее делать шаги по указанным цифрам. для этого, если противник прибавляет некое m, надо прибавлять 11-m. или, ничего не считая, называть числа 1, 11+1=12, 12+11=32, ..  87 и 100.в общем виде, если требуется первым назвать число n, используя числа от 1 до m, начальное число определяем, как остаток деления n на (m+1). а далее, когда противник прибавляет некое k, мы прибавляем m+1-k.