** ПАСКАЛЕ С клавиатуры вводится вещественное число. Вывести сумму трёх его первых цифр...

Question

НА ПАСКАЛЕ С клавиатуры вводится вещественное число. Вывести сумму
трёх его первых цифр после десятичной точки. СРОЧНО, ПОЖАЛУЙСТА

Answer 1

VAR
  number: real;
  p, k, i, s,c: integer;
  str1, str2: string;
BEGIN
  readln(number);                                  
  Str(number, str1);
  str2:= copy(str1, Pos('.', str1)+1, 3);
  val(str2,k,c);
  s:= 0;
  WHILE (k <> 0) DO
  BEGIN
    s:= s + (k mod 10);
    k:= k div 10;
  END;  
  writeln(s);
END.