Ответы на вопрос:
Var n, cnt: integer; begin write('введите число: '); read(n); repeat inc(cnt); n : = n div 10; until n = 0; writeln('количество цифр в числе: ', cnt); end.
Популярно: Информатика
-
Павлик808917.07.2021 12:55
-
annuwka107.02.2020 03:08
-
BeliyTigr11512.04.2020 20:52
-
ksiuu07.07.2020 18:24
-
джульетта200710.06.2022 03:32
-
pinksuuun02.11.2021 02:50
-
Nodukam10.10.2022 13:10
-
panda04413.01.2022 03:41
-
olcheymaaaa10.08.2022 09:05
-
yuras12d28.07.2020 19:54