Ответы на вопрос:
Дано натуральное число n. Посчитать количество цифр в числе.
{Подсчет количества цифр начнем с последней цифры числа. Увеличим счетчик цифр на единицу. Число уменьшим в 10 раз (тем самым мы избавляемся от последней цифры числа). Далее с получившимся числом проделаем ту же последовательность действий и т. д., пока число не станет равным нулю. Примечание: в теле цикла обязательно должен быть оператор, влияющий на соблюдение условия, в противном случае произойдет зацикливание.}
program prim1;
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.
Популярно: Информатика
-
12312312313117.02.2020 12:58
-
AmyDay12314.02.2022 00:33
-
Остап184310.09.2021 15:20
-
mialia992228.04.2021 12:41
-
YeezyM20.02.2021 11:53
-
maksi7113.03.2022 11:57
-
polly13227.04.2023 04:03
-
katiaefimova11.06.2022 05:44
-
200005nikolll27.05.2022 16:49
-
Айрона20.11.2021 19:09