Предмет: Информатика,
автор: holden342
Функция. Подсчитать количество цифр в заданном натуральном числе.
Решить в Паскале
holden342:
В ABC.NET
Ответы
Автор ответа:
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.
Приложения:
Похожие вопросы
Предмет: Русский язык,
автор: ollik2003
Предмет: Русский язык,
автор: катякристина
Предмет: Русский язык,
автор: ника2222228
Предмет: Химия,
автор: 11032002rus
Предмет: Математика,
автор: davidutkin71