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

Answer 2

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

Answer 3

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

Answer 4

Я не знаю, как её можно ПРОСТО решить по-другому, потому что только она преобразует вещественное в целое. Можно преобразовать число к строке, найти позицию точки, взять три символа после нее, выделить каждый, превратить символ в цифру и найти сумму, но там точно будет что-то, чего вы тоже "не проходили".

Answer 5

Так что берите это решение, скажете, что нашли Trunc в Справке по языку.

Answer 6

И на будушее: "мы не проходили" - это не повод. Есть такое слово - "самостоятельность". Привыкайте.