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

VB.Dim n As Integer n=InputBox ("Введите число: ") MsgBox ("В числе " & Len (CStr (n) & " цифр.") Pascal.Program N; Var I, S, N: Longint; Begin Writeln ('Введите число'); Readln (I); N: =1; While I > 10 DO BEGIN I: =I DIV 10; Inc (N); end; // c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535Write ('"В числе цифр "=',N); Readln; end. Помог? Жми Лучший!