/
spirzen
/
it-code-examples
Обзор
Документация
Войти
/
spirzen
/
it-code-examples
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
examples/pascal/lab-1140-028/main.pas
21 строка
245 B
Spirzen
Code migration pack
09 июн 2026, 01:41
09 июн 2026, 01:41
cebc284
Код
Авторство
О чём код?
program CountDigits; var n: int64; cnt: integer; begin ReadLn(n); if n = 0 then WriteLn(1) else begin cnt := 0; while n > 0 do begin cnt := cnt + 1; n := n div 10; end; WriteLn(cnt); end; end.