Question

В вещественной переменной Y записано некоторое неотрицательное число, не превосходящее 30000. Запишите в переменную P произведение первых после десятичной точки трёх цифр числа Y. Можно использовать дополнительные переменные любых типов, но нужно указать тип для каждой дополнительной переменной.

Answer 1

var n,p,i: integer;
    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