Дано натуральное число n. Определить: a) Количество цифр в этом числе; б) Сумму его цифр; в) Первую цифру числа n;

program zz1;

var s, n, k, i:integer; / / задаем переменные целого типа

begin

write (' введите число ');

read (n); / / вводим с клавиатуры число

s:=0;

while n>0 do / / организуем цикл, пока в числе есть цифры

begin

k:=n mod 10; / / получаем последнюю цифру

s:=s + k; / / прибавляем ее к сумме

n:=n div 10; / / отбрасываем ее

i:=i + 1; / / считаем ее

end;

writeln ('количество цифр числа = ', i); / / выводим ответ

writeln ('сумма цифр четырехзначного числа = ', s);

writeln ('первая цифра числа = ', k);

end.