100 раз,счет начинается от 0
Var
n,k,s,d:longint;
begin
Write('Введите натуральное число: ); Readln(n);
s:=0; k:=0;
while n<>0 do begin
d:=n mod 10;
Inc(k);
s:=s+d;
n:=n div 10
end;
Writeln('Количество цифр равно ',k,', сумма цифр равна ',s)
end.
<em><u>Тестовое решение:</u></em>
Введите натуральное число: 157832
Количество цифр равно 6, сумма цифр равна 26
Result должен быть с новой строки, т.к. это тоже запрос
1) 8, 10, 16
2) 11111(2), 37(8), 31(10), 1F(16)
3) -61(10) = 11000011(2); 99(10) = 1100011(2)
4) 892310
5) 32
6) 1809