
Вопрос задан 11.03.2021 в 01:46.
Предмет Информатика.
Спрашивает Сиднева Лиза.
С клавиатуры вводится вещественное число. Вывести сумму трёх его первых цифр после десятичной
точки.

Ответы на вопрос

Отвечает Шикула Анастасія.
// 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



Отвечает нейросеть ChatGpt. Будьте внимательны, ответы нейросети могут содержать ошибочные или выдуманные данные.
Для решения этой задачи вам потребуется преобразовать введенное вещественное число в строку и выполнить некоторые операции со строками. Вот пример решения на языке Python:
pythonnumber = float(input("Введите вещественное число: ")) # Вводим вещественное число с клавиатуры
# Преобразуем число в строку и разделяем его на целую и десятичную части
number_str = str(number)
integer_part, decimal_part = number_str.split('.')
# Получаем первые три цифры после десятичной точки
digits = decimal_part[:3]
# Вычисляем сумму цифр
sum_digits = sum(int(digit) for digit in digits)
print("Сумма трех первых цифр после десятичной точки:", sum_digits)
Пример работы программы:
Введите вещественное число: 3.14159 Сумма трех первых цифр после десятичной точки: 6
Обратите внимание, что в этом примере не предусмотрена обработка ошибок, например, если введенное значение не является вещественным числом или в десятичной части содержится меньше трех цифр.


Топ вопросов за вчера в категории Информатика

Информатика 562

Информатика 404

Информатика 31

Информатика 76

Информатика 16

Информатика 41

Информатика 31
Последние заданные вопросы в категории Информатика
Предметы
-
Математика
-
Литература
-
Алгебра
-
Русский язык
-
Геометрия
-
Английский язык
-
Химия
-
Физика
-
Биология
-
Другие предметы
-
История
-
Обществознание
-
Окружающий мир
-
География
-
Українська мова
-
Информатика
-
Українська література
-
Қазақ тiлi
-
Экономика
-
Музыка
-
Право
-
Беларуская мова
-
Французский язык
-
Немецкий язык
-
МХК
-
ОБЖ
-
Психология
-
Физкультура и спорт
-
Астрономия
-
Кыргыз тили
-
Оʻzbek tili