Дано естественное число , определить количество цифр в нем ( ПАСКАЛЬ

Дано естественное число , найти количество цифр в нем ( ПАСКАЛЬ )
Безотлагательно !

Задать свой вопрос
2 ответа
Var
ans, n:integer;
Begin
Read(n);
While (n gt; 0) do
  begin
    inc(ans);
    n := n div 10;
  end;
Writeln(ans);
end.
Vara:string;beginwriteln('Введите число: ');readln(a);writeln('Количество цифр в вашем числе - ',length(a));end.
Харчикова Эмилия
vara:string;beginwriteln('Введите число: ');readln(a);writeln('Количество цифр в вашем числе - ',length(a));end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт