<span>a = 40
b = 6
b = a div b+b = 40 div 6+6 = 6+6 = 12
a = b+a = 12+40 = 52</span>
<span>ПОЛТЕЛЬИСНИ - исполнитель</span>
Ответ "да" содержит ровно 16 бит
Один символ = 8 бит
Var
a,i:integer;
begin
write('Введите число:');
readln(a);
writeln('Единицы: ',a mod 10);
a:=a div 10;
writeln('Десятые: ',a mod 10);
writeln('Сотые: ',a div 10);
readln;
end.