С клавиатуры вводится вещественное число. Вывести сумму
трёх его первых цифр после десятичной точки.
Ответы на вопрос
Ответил Аноним
0
// 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
Ответил Noorа
0
Интересно)) а что если мы такого у не проходили? *_*
Ответил Noorа
0
То есть по другому эту задачу никак не решить?
Ответил Аноним
0
Я не знаю, как её можно ПРОСТО решить по-другому, потому что только она преобразует вещественное в целое. Можно преобразовать число к строке, найти позицию точки, взять три символа после нее, выделить каждый, превратить символ в цифру и найти сумму, но там точно будет что-то, чего вы тоже "не проходили".
Ответил Аноним
0
Так что берите это решение, скажете, что нашли Trunc в Справке по языку.
Ответил Аноним
0
И на будушее: "мы не проходили" - это не повод. Есть такое слово - "самостоятельность". Привыкайте.
Новые вопросы