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

Question

С клавиатуры вводится вещественное число. Вывести сумму
трёх его первых цифр после десятичной точки.

Answer 1

// PascalABC.NET 3.3, сборка 1573 от 04.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var r:=ReadReal('Введите вещественное число:');
  var n:=Trunc(1000*Frac(r));
  var s:=0;
  while n>0 do begin
    s+=n mod 10;
    n:=n div 10
    end;
  Writeln('Сумма трех первых цифр дробной части: ',s);
end.

Пример
Введите вещественное число: 3.141592
Сумма трех первых цифр дробной части: 6

Comments

нужно вывести СУММУ трёх чисел после точки, а не сами эти цифры

---

а можно, пожалуйста, заменить "Trunc"? я не знаю что это такое

---

Интересно)) а что если мы такого у не проходили? *_*

---

То есть по другому эту задачу никак не решить?