![341_9=3\times 9^2+4 \times 9^1+1\times 9^0=3\times 9^2+4 \times 9+1 \\ 341_8=3\times 8^2+4 \times 8^1+1\times 8^0=3\times 8^2+4 \times 8+1 \\ 341_6=3\times 6^2+4 \times 6^1+1\times 6^0=3\times 6^2+4 \times 6+1 \\ 341_{16}=3\times 16^2+4 \times 16^1+1\times 16^0=3\times 16^2+4 \times 16+1](https://tex.z-dn.net/?f=341_9%3D3%5Ctimes+9%5E2%2B4+%5Ctimes+9%5E1%2B1%5Ctimes+9%5E0%3D3%5Ctimes+9%5E2%2B4+%5Ctimes+9%2B1+%5C%5C+341_8%3D3%5Ctimes+8%5E2%2B4+%5Ctimes+8%5E1%2B1%5Ctimes+8%5E0%3D3%5Ctimes+8%5E2%2B4+%5Ctimes+8%2B1+%5C%5C+341_6%3D3%5Ctimes+6%5E2%2B4+%5Ctimes+6%5E1%2B1%5Ctimes+6%5E0%3D3%5Ctimes+6%5E2%2B4+%5Ctimes+6%2B1+%5C%5C+341_%7B16%7D%3D3%5Ctimes+16%5E2%2B4+%5Ctimes+16%5E1%2B1%5Ctimes+16%5E0%3D3%5Ctimes+16%5E2%2B4+%5Ctimes+16%2B1)
Дальнейшее вычисление развернутого выражения приведет к получению значения соответствующего числа в той системе счисления, в которой будет выполняться вычисление.
PaskalABC
//дано натуральне число n. Найти произведение его цифр pascal
Var x,y,S:word;
Begin
S:=1;
Writeln ('Введите натуральное число (от 1 до 65535)');
Readln (x);
If x=0 then writeln ('Ноль не является натуральным числом')// проверка на шутника (от введенного 0)
Else
Begin
While x<>0 do
Begin
y:=x mod 10;
x:=x div 10;
S:=S*y;
End;
Writeln ('Произведение цифр данного числа равно ',S);
End;
End.
Задал доллару значение 30, евро 60. Вы уж исправите как там сейчас)
<html>
<head>
<script>
function onButtonClick(){
var dollar=30;
var euro=60;
var rub=document.getElementById('lol').value;
alert('В долларах: '+rub*dollar+'\n\rВ евро: '+rub*euro); }
</script>
</head>
<body>
<input type='text' id='lol'>
<button onClick='onButtonClick()'>
Конвертировать
</button>
</body>
</html>