Найти минимальное x, чтоб выводило 14 и 24. При вводе 742 выводит 14 и 0. Откуда ноль взялся?

@Worldeater · Регистрация: 10.06.2020

Студворк — интернет-сервис помощи студентам

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var x, a, b: integer;
begin
  readln(x);
  a := 0; b := 1;
  while x > 0 do begin 
    a := a + x mod 8;
    if x mod 2 = 0 then
      b := b * x mod 8;
    x := x div 8
    
  end;
  writeln(a); write(b)
  
end.

@Puporev · 10.06.2020, 16:39

А как звучит задача?

@Worldeater · 10.06.2020, 16:51 **[ТС]**

вот она

@mr-Crocodile · 10.06.2020, 17:19

Worldeater, задача (ЕГЕшная, судя по всему) состоит в том, чтобы понять, что это за цикл и что делается в цикле.
ты это понимаешь?
если кратко, то в A оказывается сумма последовательных остатков от целочисленного деления числа X на 8
а в B находится произведение чётных остатков.

Сообщение от Worldeater

Откуда ноль взялся?

подумай, если очередной остаток будет равен нулю, то чему будет равно произведение, после умножения на этот остаток?

@Worldeater · 10.06.2020, 17:32 **[ТС]**

742/8 =92 + остаток
92/8 = 11 + остаток
11/8 = 1 + остаток
1 div 8 =0 -> условие не выполняется
И откуда ноль берется, если все числа делятся на 8 с остатком? Вопрос внимательней читай

@Puporev · 10.06.2020, 17:35

По условию пока x<>0 выполняется
1<>0

@mr-Crocodile · 10.06.2020, 17:41

Worldeater, извини, дружище! я был неправ! (причём, два раза ошибся в своём прошлом сообщении)

Программа на Паскале имеет ошибку (уж не знаю, намеренную или нет).
b никогда не может быть больше 8
проблема в правилах вычисления выражения

Pascal
1
  b := b * x mod 8;

дело в том, что приоритет у умножения выше, поэтому сначала умножается b на x, потом берётся остаток от деления на 8
(именно поэтому b и не может быть больше 8)

Pascal
1
2
3
4
  x := 10;
  b := 6;
  b := b * x mod 8;
  WriteLn(b);

Паскаль выведет 4

чтобы 742 дало верный ответ, как, видимо, то задумавали авторы задания, должна быть такая строчка для вычисления b:

Pascal
1
      b := b * (x mod 8);

Добавлено через 1 минуту

Сообщение от Worldeater

И откуда ноль берется, если все числа делятся на 8 с остатком?

Ноль получается так 92 * 6 = 552 остаток от деления на 8 = ноль

@Worldeater · 10.06.2020, 17:47 **[ТС]**

ясно, благодарю

@mr-Crocodile · 10.06.2020, 18:07

и, что обидно, судя по всему этой ошибке подвержены только примеры на Pascal и (возможно, не проверял, просто предполагаю) - на Бейсик.
На остальных языка вроде бы всё адекватно:

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .
SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .

Найти минимальное x, чтоб выводило 14 и 24. При вводе 742 выводит 14 и 0. Откуда ноль взялся?

Решение

Решение

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	10.06.2020, 16:39
	А как звучит задача? 0

@Worldeater 0 / 0 / 0 Регистрация: 10.06.2020 Сообщений: 4
	10.06.2020, 16:51 [ТС]
	вот она Миниатюры 0

@Worldeater 0 / 0 / 0 Регистрация: 10.06.2020 Сообщений: 4
	10.06.2020, 17:32 [ТС]
	742/8 =92 + остаток 92/8 = 11 + остаток 11/8 = 1 + остаток 1 div 8 =0 -> условие не выполняется И откуда ноль берется, если все числа делятся на 8 с остатком? Вопрос внимательней читай 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	10.06.2020, 17:35
	По условию пока x<>0 выполняется 1<>0 0

@Worldeater 0 / 0 / 0 Регистрация: 10.06.2020 Сообщений: 4
	10.06.2020, 17:47 [ТС]
	ясно, благодарю 0

@mr-Crocodile 3053 / 1672 / 657 Регистрация: 19.03.2019 Сообщений: 5,381
	10.06.2020, 18:07
	Сообщение было отмечено ZX Spectrum-128 как решение Решение и, что обидно, судя по всему этой ошибке подвержены только примеры на Pascal и (возможно, не проверял, просто предполагаю) - на Бейсик. На остальных языка вроде бы всё адекватно: 0