Вопрос, который вызвал трудности
С клавиатуры вводится вещественное число. Вывести сумму
трёх его первых цифр после десятичной точки.
Ответ экспертов Учись.Ru
Чтобы дать полноценный ответ, был привлечён специалист, который хорошо разбирается в теме.
После обсуждения с другими специалистами сервиса мы пришли к выводу, что правильный ответ на ваш вопрос будет звучать следующим образом:
// 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
// Внимание! Если программа не работает, обновите версию!
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