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
Ответ:
Совокупность последовательных шагов повторяется по кругу
11010010 = 128+64+0+16+0+0+2+0 = 210
11001100 = 128+64+0+0+8+4+0+0 = 204
11001111 = 128+64+0+0+8+4+2+1 = 207
11010011 = 128+64+0+16+0+0+2+1 = 211
а = 192
б = 193
<span>...</span>
Для кодирования одного символа в кодировке ASCII используется 8 бит, в кодировке Unicode - 16 бит (хотя это зависит от того, что кодируется). Следовательно, искомый объем сообщения = 2^13 * 2 = 2^14
Создание и изменение растровых графических изображений