Нужно решить на мове pascalabc вычислить количество цифр целого неотрицательного числа n. входные данные #1 12343 выходные данные #1 5
137
171
Ответы на вопрос:
Var n,k: integer; begin write('n ='); read(n); n: =abs(n); { от злобных буратинок с отрицательными числами } if k=n then k: =1 else begin k: =0; while n> 0 do begin k: =k+1; n: =n div 10 end end; writeln('количество цифр в числе равно ',k) end. пример n =435342134 количество цифр в числе равно 9
Популярно: Информатика
-
Domashka0005.09.2020 10:01
-
ева21107811.03.2022 09:56
-
anastasiya26409.04.2021 12:16
-
qwwwq002.05.2023 18:32
-
таня4356401.04.2021 03:17
-
заушкина24.09.2022 00:06
-
anastasiasestak02.05.2022 23:44
-
Cat51414.02.2020 17:44
-
влад229922.11.2020 04:24
-
Ksenia2004bi23.09.2020 09:48