<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 задача.
Дом1-Алексей,столяр.
Дом2-Виктор,хирург.
Дом3-Михаил,окулист.
Дом4-Егор,токарь.
Var
k:integer;
a,s:real;
begin
while k < 7 do
begin
write('Введите число: ');
readln (a);
s:=s+a;
k:=k+1
end;
writeln('Сумма 7 чисел равна: ',s)
end.
11011111.01000111101+<span>110101011.10001100010
</span>1110110011.01100001011+<span>1110001011.01000001011
</span>как то так, В это <span>Шестнадцатиричная</span>