Задача по Паскалю

[daled]

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

[GreenWizard]

float Y = 0.123f;
int S = 0;
for(int i = 0; i < 3; i++){ // 3 цифры берём
  Y *= 10; // сдвиг вправо чисел т, е. 0.123 => 01.23
  S += floor(Y) \ 10; // берём остаток от деления на 10 т. е. 01.23 => 1
}

:D Паскаль.............. мин 10, напишу вариант на Паскале, а то на автомате С++ влепил

[Serge_Bliznykov]

одной строкой:

S := ((y*10) mod 10) + ((y*100) mod 10) + ((y*1000) mod 10);

[GreenWizard]

Сообщение от Serge_Bliznykov

одной строкой:

S := ((y*10) mod 10) + ((y*100) mod 10) + ((y*1000) mod 10);

Хорошая попытка, но гибкости 0 (а вдруг захотят сумму 8 чисел?) + y же не целое число, не скомпилируется даже)

var
  Y: Double;
  S, i: Integer;
begin
  Write('Y = ');
  Readln(Y);

  S := 0;
  for i := 1 to 3 do
    begin
      Y := Y * 10;
      S := S + (Floor(Y) mod 10);
    end;

  Writeln('S = ', S);
  Readln;
end.