0 / 0 / 0
Регистрация: 13.03.2025
Сообщений: 16

Число Е

29.09.2025, 14:41. Показов 852. Ответов 2

Студворк — интернет-сервис помощи студентам
Выведите в выходной файл округленное до n знаков после десятичной точки число E. В данной задаче будем считать, что число Е в точности равно 2.7182818284590452353602875.

Входной файл INPUT.TXT содержит целое число n (0 ≤ n ≤ 25).

В выходной файл OUTPUT.TXT выведите ответ на задачу.

Добавлено через 58 секунд
помогите пожалуйста
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
29.09.2025, 14:41
Ответы с готовыми решениями:

Дано двухзначное число. Найти число десятков, число единиц в нем, произведение его цифр
Помогите плиз=)) Дано двухзначное число. Найти число десятков ,число едениц в нем, произвеление его...

Введиет число, напечатайте 1, если число четное, и 0 если число нечетное
Помогите Please решить 1)Введиет число, напечатайте 1,если число четное ,и 0 если число нечетное. ...

Данно вещественное число X. Найти в нем первое число десятка, число десятых долей.
помогите плз решить Данно вещественное число X. Найти в нем первое число десятка, число десятых...

2
 Аватар для JuriiMW
5094 / 2660 / 2355
Регистрация: 10.12.2014
Сообщений: 10,059
30.09.2025, 08:52
Лучший ответ Сообщение было отмечено ohio как решение

Решение

Немного неверные данные.
На самом деле 25 и 26 цифры после запятой 4 и 7.
Т.е. при округлении до 25 цифр, конечно последняя будет 5, но до 24 должна быть 7, а по заданным данным — 8:
2.718281828459045235360287, а не то, что получается по условию

Pascal
1
2
3
4
5
6
7
8
9
## var e := '2.7182818284590452353602875';
var d := ReadInteger;
var r : String;
if d = 0 then r := '3'
else begin
  r := e.Left(2 + d);
  if (d < 25) and (e[3 + d] > '4') then r := r.left(r.Length-1) + Succ(r[r.Length]);
end;
r.PrintLn;
0
Модератор
10328 / 5606 / 3385
Регистрация: 17.08.2012
Сообщений: 17,108
01.10.2025, 21:38
Для сдачи роботу на проверочный сайт.
Pascal
1
2
3
4
5
6
##
  var (E, n) := ('271828182845904523536028750', ReadAllLines('INPUT.TXT')[0].ToInteger);
  inc(E[n], ord(E[n+1] > '4'));
  E := E.Left(n);
  if n > 1 then insert('.', E, 2);
  WriteAllText('OUTPUT.TXT', E)
Программа написана для заданной строки E, поэтому многократный перенос при округлении не реализован.

Добавлено через 1 час 17 минут
Хотя... На большинстве проверочных сайтов используется FPC. Для FPC можно так:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
const
  inpname = 'INPUT.TXT';
  outname = 'OUTPUT.TXT';
var
  E: string = '271828182845904523536028750';
  n: integer;
begin
  assign(input, inpname);
  reset(input);
  read(input, n);
  close(input);
  inc(E[n], ord(E[n+1] > '4'));
  E := copy(E, 1, n);
  if n > 1 then insert('.', E, 2);
  assign(output, outname);
  rewrite(output);
  write(output, E);
  close(output)
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
01.10.2025, 21:38
Помогаю со студенческими работами здесь

В первой строке записано арифметическое выражение в виде: <число> <операция> <число> = Число
В первой строке записано арифметическое выражение в виде: &lt;число&gt; &lt;операция&gt; &lt;число&gt; = Число - это...

Найти число пассажиров, имеющих более двух вещей и число пассажиров, количество вещей которых превосходит среднее число вещей
Тема: Записи. Работа с текстовыми файлами. Дан файл f, содержащий сведения о багаже нескольких...

Определить двухзначное число, в котором число десятков соответствует первой цифре заданного числа, а число единиц-последней
2.Дано целое положительное четырёхзначное число. Напишите программу, позволяющую определить...

Получить число, приписав к нему такое же число , а потом число в обратном порядке
Дано натуральное число. Получить новое, приписав к нему такое же число , а потом число в обратном...

Дано целое число А. Это число умножают на 2 и к произведению прибавляют 1. Полученное число опять умножают на 2 и прибавляют 1. Сколько раз необходимо
Дано целое число А. Это число умножают на 2 и к произведению прибавляют 1. Полученное число опять...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

Новые блоги и статьи
Мысли в слух
kumehtar 07.11.2025
Заметил среди людей, что по-настоящему верная дружба бывает между теми, с кем нечего делить.
Новая зверюга
volvo 07.11.2025
Подарок на Хеллоуин, и теперь у нас кроме Tuxedo Cat есть еще и щенок далматинца: Хочу еще Симбу взять, очень нравится. . .
Инференс ML моделей в Java: TensorFlow, DL4J и DJL
Javaican 05.11.2025
Python захватил мир машинного обучения - это факт. Но когда дело доходит до продакшена, ситуация не так однозначна. Помню проект в крупном банке три года назад: команда data science натренировала. . .
Mapped types (отображённые типы) в TypeScript
Reangularity 03.11.2025
Mapped types работают как конвейер - берут существующую структуру и производят новую по заданным правилам. Меняют модификаторы свойств, трансформируют значения, фильтруют ключи. Один раз описал. . .
Адаптивная случайность в Unity: динамические вероятности для улучшения игрового дизайна
GameUnited 02.11.2025
Мой знакомый геймдизайнер потерял двадцать процентов активной аудитории за неделю. А виновником оказался обычный генератор псевдослучайных чисел. Казалось бы - добавил в карточную игру случайное. . .
Протоколы в Python
py-thonny 31.10.2025
Традиционная утиная типизация работает просто: попробовал вызвать метод, получилось - отлично, не получилось - упал с ошибкой в рантайме. Протоколы добавляют сюда проверку на этапе статического. . .
C++26: Read-copy-update (RCU)
bytestream 30.10.2025
Прошло почти двадцать лет с тех пор, как производители процессоров отказались от гонки мегагерц и перешли на многоядерность. И знаете что? Мы до сих пор спотыкаемся о те же грабли. Каждый раз, когда. . .
Изображения webp на старых x32 ОС Windows XP и Windows 7
Argus19 30.10.2025
Изображения webp на старых x32 ОС Windows XP и Windows 7 Чтобы решить задачу, использовал интернет: поисковики Google и Yandex, а также подсказки Deep Seek. Как оказалось, чтобы создать. . .
Passkey в ASP.NET Core identity
stackOverflow 29.10.2025
Пароли мертвы. Нет, серьезно - я повторяю это уже лет пять, но теперь впервые за это время чувствую, что это не просто красивые слова. В . NET 10 команда Microsoft внедрила поддержку Passkey прямо в. . .
Последние результаты исследования от команды MCM (октябрь 2025 г.)
Programma_Boinc 29.10.2025
Последние результаты исследования от команды MCM (октябрь 2025 г. ) Поскольку мы продолжаем изучать гены, которые играют ведущую роль в развитии рака, в рамках проекта "Картирование раковых. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru