Дано натуральное число , определить количество цифр в нем ( паскаль ) ! уже какой раз этот вопрос никто правильно решить не может ! !
161
268
Ответы на вопрос:
Program 123; uses crt; var m, n: longint; k: integer; {счетчик цифр} begin clrscr; {вводим целое число.} writeln('введите n='); readln(n); {запоминаем его и счетчику цифр присваиваем начальное значение.} m: =n; k: =0; {пока m< > 0 делать цикл.} while m < > 0 do begin {"уменьшаем" число на последнюю цифру, т. е. в 10 раз.} k: =k+1; m: = m div 10; {inc(k) } end; {вывод количества цифр.} writeln('b числе ',n,'- ',k, ' цифр! '); readln; end.
Популярно: Информатика
-
baby252519.01.2020 08:36
-
ggg29420.03.2023 00:22
-
prohorowanyura18.04.2022 14:12
-
TokstoyLev15.03.2023 14:18
-
virakudleychuk02.02.2023 10:49
-
Artemko3108.05.2023 01:15
-
annaegorova429.03.2021 01:22
-
Ronni0530.05.2023 08:51
-
нур82124.10.2021 11:53
-
superfrap32006.08.2022 11:38