Напишите программку, которая вычисляет количество цифр числа. Используйте функцию.

Напишите программу, которая вычисляет количество цифр числа. Используйте функцию.

Задать свой вопрос
1 ответ
// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программка не работает, обновите версию!

function nDigits(n:int64):integer; // если число
begin
  Result:=0;
  if nlt;0 then n:=-n;
  while ngt;0 do begin
    Result+=1;
    n:=n div 10
    end
end;

function nDigits(s:string):=s.Length; // если строка

begin
  Writeln(nDigits(1234567890123456)); // 16
  Writeln(nDigits('123456789012345678901234567890')) // 30
end.

Итог
16
30
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

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

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

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

Войти на сайт