В вещественной переменной Y записано некоторое неотрицательное число, не превосходящее 30000. Запишите в переменную P произведение первых после десятичной точки трёх цифр числа Y. Можно использовать дополнительные переменные любых типов, но нужно указать тип для каждой дополнительной переменной.
More Questions From This User See All
Answers & Comments
s: real;
begin
p:=1;
write('число: '); readln(s);
for i:=1 to 3 do
begin
s:=s*10;
n:=floor(s) mod 10;
p:=p*n;
end;
writeln('произведение: ',p);
end.
число: 425.3452
произведение: 60