Паскаль. Циклические вычисления

Циклические вычисления
Циклический процесс можно организовать с помощью операторов цикла
Имеются три оператора цикла:
оператор цикла с предусловием;
оператор цикла с постусловием;
оператор цикла с параметром.
К циклическим вычислениям относятся такие, в которых имеются повторяющиеся группы операторов.
Тупицына В.Л., МБОУ СОШ №9 г. Новоалтайск

Общие правила
При выполнении операторов цикла должны выполняться следующие правила:
вход в цикл возможен только через его начало;
переменные оператора цикла должны быть определены до входа в циклическую часть;
необходимо предусмотреть и выход из цикла.
Тупицына В.Л., МБОУ СОШ №9 г. Новоалтайск

Оператор цикла с предусловием
While p do S1;
Где p – логическое выражение; S1-оператор;
Если в цикле необходимо выполнить несколько операторов, то они заключаются в операторные скобки
BEGIN ………. END
Тупицына В.Л., МБОУ СОШ №9 г. Новоалтайск

Задача
Определить количество цифр в записи числа N
PROGRAM KOLLICH;
VAR N:LONGINT;
K: BYTE;
BEGIN
WRITELN (‘ВВЕДИТЕ ЦЕЛОЕ ЧИСЛО’);
READLN(N);
K:=0;
WHILE N>0 DO
BEGIN
K:=K+1;
N:=N DIV 10
END;
WRITELN(‘КОЛИЧЕСТВО ЦИФР=’,K);
END.
Тупицына В.Л., МБОУ СОШ №9 г. Новоалтайск