В вещественной переменной Y записано некоторое неотрицательное число, не превосходящее...

Question

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

Answer 1

 пишу для паскаля
readln(n);
z:=trunc(n);
n:=n-z;
for i:=1 to 3 do begin
n:=n*10;
s:=s+trunc(n);
end;
где n искомое число
z число без дробной части
i счетчик