Составить программу для определения количества цифр в записи…

Так программа выглядела бы без учета условия использования переменной типа "string"Varx: integer; n: integer; beginn: =0; readln (x); while x<>0 dobegin n: =n+1; x: =x div 10; end; writeln (n); end. А если x: string, то программа не будет работать: данные строкового типа нельзя делить