1.дано целое число а. определить количество цифр в числе, которые больше 6.pascal

Var     a, counter: integer; begin   readln(a);   counter : = 0;   repeat     if (a mod 10 > 6) then       inc(counter);     a : = a div 10;   until (a = 0);   writeln(counter); end.

// работает  только на // количество символов для языка считает корректно, но вывод самой строки и работа со строкой не возможна.#include < bits/stdc++.h> using namespace std; int main(){ setlocale(lc_all, "russian");   char s[1000];   int ans = 0;   cin.getline(s,1000, '\n');   string s1 = string(s);   cout < < "строка: " < < s < < endl;   cout < < "в строке: < < " < < s1 < < "> > ";   cout < < s1.length() < < " символов"; } пример: for my heartстрока: for my heartв строке: < < for my heart> > 12 символов

12 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25                 x0 : = 30;         y0 : = 460;         maxy : = 80;         maxx : = getmaxx;         i : = 1;         t0 : = rez[id_t, 1];         tk : = 15;         tkv : = 0.75;         moveto(x0, y0);           while t0 < = tk do         begin             x : = x0 + 70 * round( rez[id_t, i] );             y : = y0 - round( rez[id_zt, i] / 7.8 );               lineto(x, y);               t0 : = t0 + tkv;             i : = i + 1;               delayseconds : = round(tkv * 1000);             delay(delayseconds);         end;         { графика }