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

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

#include <iostream>
using namespace std;
int main() {
    int N;
    cout << "Vvedite chislo = "; cin >> N;
    if ((N % 3) == 0) cout << "Kratno 3" << endl;
    else cout << "Ne kratno 3" << endl;
    if ((N % 5) == 0) cout << "Kratno 5" << endl;
    else cout << "Ne kratno 5" << endl;
    if ((N % 7) == 0) cout << "Kratno 7" << endl;
    else cout << "Ne kratno 7" << endl;
    system("pause");
    return 0;
}

Пример:
Vvedite chislo = 70
Ne kratno 3
Kratno 5
Kratno 7

ABCF = 12 + 2 + 4 = 18
ABCDEF =12 + 2 + 6 + 4 + 12 = 36
ACF = 8 + 4 = 12  ← кратчайший
ACDEF = 8 + 6 + 4 + 12 = 30
AEF = 2 + 12 = 14
AEDCF = 2 + 4 + 6 + 4 = 16
ADEF = 4 + 4 + 12 = 20
ADCF = 4 + 6 + 4 = 14

В оперативной памяти размер ячейки - 1 бит
512 Мбайт = 512*1024*1024*8 бит = 4 294 967 296 бит или ячеек