<em>// PascalABC.NET 3.3, сборка 1590 от 03.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var y:=ReadReal('Y=');
var p:=Trunc(Frac(y)*1000);
p:=(p div 100)*(p div 10 mod 10)*(p mod 10);
Writeln('P=',p)
end.
<u>Пример</u>
Y= 29632.637823
P=126
1. 11110110011 = 3663<span> (8)
2. </span>110110101 = 665<span> (8)
3. </span>110100110 = 646<span> (8)
4. </span>10100110 = 246<span> (8)
5. </span>1000011 = 103<span> (8)
6. </span>1101010,1100 = 152.6<span> (8)
7. </span>1010110,0101 = 126.24<span> (8)
8. </span>11010,01101 = 32.32<span> (8)
9. </span>1000,1101 = 10.64<span> (8)
10. </span>11101,001 (2) = <span>35.1</span> (8)
Ответ,А )с заданными условиями продолжение работ
выравнивание по центру строки