Написать программу находящую количество цифр вводимого неотрицательного положительного числа
231
431
Ответы на вопрос:
Var a, c : integer; begin readln (a); c : = 0; if (a = 0) then c : = 1 else while a < > 0 do begin c : = c + 1; a : = a div 10; end; writeln (c); end.
Популярно: Информатика
-
Cuba12529.09.2022 02:51
-
zhorik2006nice18.07.2022 12:56
-
aibekauezhanme23.12.2020 08:25
-
annakivilyova11.08.2020 18:52
-
Otto11111.05.2021 23:10
-
Olrg300704.11.2021 05:32
-
андрей214926.05.2021 01:14
-
BelkaNext14.04.2023 02:27
-
feruzbek21403.03.2021 00:11
-
klanfaktorp082lg13.07.2021 07:48