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

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

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

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

Геннадий 2019-07-06 06:44:23

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

Галя Черничко 2019-07-06 06:47:56

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

Семик 2019-07-06 06:53:46

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

Карина Осепенко-Восепенко 2019-07-06 07:00:08

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

О проекте

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

Добро пожаловать!