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

  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. ? жми лучший!

Уэтого редактора своеобразный интерфейс, который ни на что не похож, он не похож на word или excel. я расскажу, про мои методы работы в нем. я выбираю команды не путем выбора пиктограммы, а нажимая hotkey на клавиатуре (типа shift+c для обрезки и прочие). масшаьируюсь колесиком с зажатым ctrl. панорамируюсь средней кнопочкой. он поддерживает и графические планшеты, так что в нем можно рисовать и с дигитайзера и кнопки (виртуальные и ) на нем тоже работают и на них тоже можно навесить нужные для вас команды.

Var a,b: integer; begin   write('a b через пробел: ');   readln(a,b);   if div 10) mod 10) mod 2 = 0) or       div 10) mod 10) mod 2 =0) then    begin     a: =a*a; b: =floor(sqrt(b));   end   else   begin     a: =floor(sqrt(a));     b: =b*b;   end;   writeln('a = ',a,'   b = ',b); end.a b через пробел: 13 54 a = 3   b = 2916 a b через пробел: 24 16 a = 576   b = 4