Дано натуральне число n визначити кількість цифр у цьому числі Паскаль

Дано натуральне число n визначити кількість цифр у цьому числі Паскаль
Гость
Ответ(ы) на вопрос:
Гость
var a,k:int64; begin k:=1; writeln('Vvedite chislo'); read(a); while a>0 do  begin  a:=a mod 10;  k:=k+1;  end; write('V chisle',k,' tsifr'); end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы