Исходник программы, которая находит количество цифр в числе, введённого пользователем с клавиатуры. Исходник основан на цикле WHILE. Есть пояснительные комментарии к каждой строке. Увидеть исходный код и скачать скомпилированный исходник вы можете ниже.
Исходный код программы для нахождения кол-ва цифр в числе:
Program kolcifr; //Название программы
var a, kol: integer; //Описание переменных
Begin //Начало программы
Writeln ('Введите число'); //Диалог с пользователем
Readln (a); //Считывание числа
while a<>0 do begin //Вход в цикл while, пока а не равно 0
a:=a div 10; //Целочисленное деление на 10, отрезаем последнюю цифру
kol:=kol+1; //Считаем кол-во цифр
end; //Конец цикла
Writeln ('Кол-во цифр: ',kol);//Вывод результата
end. //Конец программы
var a, kol: integer; //Описание переменных
Begin //Начало программы
Writeln ('Введите число'); //Диалог с пользователем
Readln (a); //Считывание числа
while a<>0 do begin //Вход в цикл while, пока а не равно 0
a:=a div 10; //Целочисленное деление на 10, отрезаем последнюю цифру
kol:=kol+1; //Считаем кол-во цифр
end; //Конец цикла
Writeln ('Кол-во цифр: ',kol);//Вывод результата
end. //Конец программы
Скомпилированный исходник рекомендовано открывать программами PascalABC и PascalABC.Net.
Скачать исходник: kolcifr.pas