Предмет: Информатика, автор: holden342

Функция. Подсчитать количество цифр в заданном натуральном числе.
Решить в Паскале


holden342: В ABC.NET
holden342: Главное чтоб работала

Ответы

Автор ответа: BobbyFresnel
0

===== PascalABC.NET =====

function ЧислоЦифр(n: int64): integer;

begin

 Result := 0;

 while n > 0 do

 begin

   Inc(Result);

   n := n div 10

 end

end;

begin // тест

 foreach var k in Seq&<int64>(3456765834578234, 35634, 96723, 100, 5) do

   Print(ЧислоЦифр(k))  // выведет 16 5 5 3 1

end.

Приложения:

holden342: Не работает(
Похожие вопросы
Предмет: Русский язык, автор: катякристина

помогите решить кто может

1)Огланись же и ты, юноша, мой друг, оглянись, как я, и скажи, кого ты обижал в изни больше, чем мать, - не от меня ли, не от тебя, не от него, не от наших ли неудач, ошибок и не от нашего ли горя седеют наши матери?   из этого предложения выпишите слово(а) с безударной непроверяемой гласной в корне

2)В повседневной жизни человек руководствуется множеством частных, но от этого не менее действенных правил, факторов и обстоятельств. указать верную характеристику предложения:

а)сложносочинённое        б)сложноподчинённое    в)простое осложнённое                                         г)сложное с сочинительной и подчинительной связью

3)в каком предложении оба слова пишутся слитно

а)Вётлы ещё не пожелтели, за(то) (из)за домовпроглядывают верхушки жёлтых и богрово-красных берёз и осин

б)Нетронутыми лежали полученные (по)наследству силы, с первым светлым лучём готовые подняться ему (на)встречу

в)(в)продолжение дня мы уже зажигали керосиновые лампы, и невольно казалось, что лето окончилось (на)всегда

г)(В)начале дорога шла лесом и горами, (за)тем опустилась в долину