Анализатор вводимого с клавиатуры целого числа по двум признакам – его разрядности и знака - Pascal ABC

Формулировка задачи:

1)Составить программу-анализатор вводимого с клавиатуры целого числа по двум признакам – его разрядности и знака. 2)В лаборатории были пробирки в форме цилиндров. Они отличались между собой по высоте (h=2, 2.5, 3, 3.5, …25). За год пришла в негодность каждая пятая пробирка. Определить объем разбитых пробирок, если радиус основания всех пробирок R. V = Πr2h. 3)Дано натуральное число. Сколько в нем четных цифр? 4)Дан интервал натуральных чисел от N до М. Определить все простые числа в этом интервале. 5)Вычислить сумму .

Решение задачи: «Анализатор вводимого с клавиатуры целого числа по двум признакам – его разрядности и знака»

Листинг программы

uses crt;
var n,r,nn: integer;
begin
write('n=');
readln(n);
nn:=abs(n);
while nn>0 do
      begin
      inc(r);
      nn:=nn div 10;
      end;
if n>0 then writeln('Число положительное, ') else
   if n<0 then writeln('Число отрицательное, ') else
      writeln('Число - 0,');
      writeln('число разрядов - ',r);
end.

Объяснение кода листинга программы

Ввод числа с клавиатуры, сохранение его в переменной n.
Вычисление абсолютного значения числа, сохранение в переменной nn.
Установка начального значения счётчика разрядов r равным 0.
Цикл по вычислению разрядов числа.
Увеличение значения счётчика разрядов r на единицу.
Деление числа nn на 10 с сохранением результата в переменной nn.
Проверка на положительность числа n.
Вывод сообщения о том, что число положительное.
Проверка на отрицательность числа n.
Вывод сообщения о том, что число отрицательное.
Вывод сообщения о том, что число равно нулю.
Вывод значения счётчика разрядов r.