Нахождение количества цифр в числе (WHILE)

Нахождение количества цифр в числе (WHILE)

Исходник программы, которая находит количество цифр в числе, введённого пользователем с клавиатуры. Исходник основан на цикле 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. //Конец программы


Скомпилированный исходник рекомендовано открывать программами PascalABC и PascalABC.Net.

Скачать исходник: kolcifr.pas
Дата: 2012-03-11 08:59:25   Просмотров: 34946

Теги: Паскаль Pascal циклы WHILE исходник