Var
ch,otv,perv,last:Integer;
begin
WriteLn('Введите число');
readln(ch);
last:=ch mod 100;
ch:=ch div 100;
perv:= ch div 10;
ch:=ch div 10;
otv := perv*1000+4*100+last;
WriteLn('Ответ: ',otv)
end.
пж как лучший
Переводим в двоичную:
1 - 0001
2 - 0010
8 - 1000
1 - 0001
Итого: 1001010<span>000</span>001 (два незначащих нуля у первой единицы убрал)
Переводим в восьмеричную:
001 - 1
000 - 0
010 - 2
001 - 1
1(или 001) - 1
Итого: 11201
Ответ: три единицы
)<span>Вспомогательная классификация создается с целью наиболее легкого отыскания того или иного предмета среди множества классифицируемых предметов.А естественная классификация — это распределение предметов по группам на основании их существенных признаков.</span>
<span>2)<span>Классификации на математике: числа бывают: натуральными(1,2,3); целыми(2, -5); дробными(6,73). На русском: предложения бывают: простыми, сложными: сложноподчинёнными, сложносочинёнными, сложными с разными видами связи, сложные бессоюзные.</span></span>