Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.71/7: Рейтинг темы: голосов - 7, средняя оценка - 4.71
0 / 0 / 0
Регистрация: 26.09.2021
Сообщений: 2

Дано 2 натуральных числа. В каком числе больше произведение цифр?

26.09.2021, 15:51. Показов 1428. Ответов 2
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
помогите разобраться как решить это задание. сам в программировании 0 ребёнку задали ))))
дано 2 натуральных числа. в каком числе больше произведение цифр? то число которое имеет большую сумму цифр заменить своим квадратом. Число с меньшей суммой цифр, заменить суммой исходных чисел. Если числа имеют одинаковую сумму цифр, то заменить каждое из них 0
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
26.09.2021, 15:51
Ответы с готовыми решениями:

Даны два натуральных числа. Выяснить, в каком из них больше цифр. (Определить функцию для расчета количества цифр натура
Даны два натуральных числа. Выяснить, в каком из них больше цифр. (Определить функцию для расчета количества цифр натурального числа.)

Даны два натуральных числа. Выяснить, в каком из них больше цифр. Написать метод определяющий количество цифр
№1 Дано целое число, большее 999. Используя только целочисленные операции, найти цифру, соответствующую разряду сотен в записи этого числа....

Дано натуральное число N. Определить,во сколько раз произведение цифр числа больше суммы цифр.Найти количество чётных цифр в записи числа
дано натуральное число N. Определить,во сколько раз произведение цифр числа больше суммы цифр.Найти количество чётных цифр в записи числа!!...

2
 Аватар для JuriiMW
5095 / 2661 / 2355
Регистрация: 10.12.2014
Сообщений: 10,060
26.09.2021, 16:57
Лучший ответ Сообщение было отмечено Klug как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
## var(a,b):=ReadInteger2;
var(pa,pb):=(a.ToString.Select(c->StrToInt(c)).Product,b.ToString.Select(c->StrToInt(c)).Product);
case sign(pa-pb) of
  +1 : 'произведение цифр больше у первого числа'.Println;
  -1 : 'произведение цифр больше у второго числа'.Println;
else
  'произведение цифр одинаково'.Println;
end;
var(sa,sb):=(a.ToString.Select(c->StrToInt(c)).Sum,b.ToString.Select(c->StrToInt(c)).Sum);
case sign(sa-sb) of
  +1 : (a,b):=(a*a,a+b);
  -1 : (a,b):=(a+b,b*b);
else
  (a,b):=(0,0);
end;
$'{a} {b}'.Println;
1
0 / 0 / 0
Регистрация: 26.09.2021
Сообщений: 2
26.09.2021, 17:30  [ТС]
спасибо большое, что-то у вас выглядит очень коротко(по сравнению с тем что у ребенка на экране), подозреваю с таким кодом можно самому стать учителем информатики)
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
26.09.2021, 17:30
Помогаю со студенческими работами здесь

дано натуральное число N. Определить,во сколько раз произведение цифр числа больше суммы цифр.Найти количество чётных цифр в записи числа!!
дано натуральное число N. Определить,во сколько раз произведение цифр числа больше суммы цифр.Найти количество чётных цифр в записи числа!!...

Дано 3 числа в двоичной системе счисления. Определить, в каком числе число единиц больше
Дано 3 числа в двоичной системе счисления. Определить, в каком числе число единиц больше.

Дано 3 числа в двоичной системе счисления. Определить, в каком числе число единиц больше
Дано 3 числа в двоичной системе счисления. Определить, в каком числе число единиц больше.

Даны два натуральных числа. Выяснить в каком из них больше цифр, определив функцию для расчета количества цифр натуральн
Решить с помощью методов

Даны два натуральных числа. Выяснить в каком из них больше цифр
Даны два натуральных числа. Выяснить в каком из них больше цифр, определив функцию для расчета количества цифр натурального числа. Если...


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
Как я обхитрил таблицу Word
Alexander-7 21.03.2026
Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .
Krabik - рыболовный бот для WoW 3.3.5a
AmbA 21.03.2026
без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .
Программный отбор значений справочника
Maks 21.03.2026
Установка программного отбора значений справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит предопределенное значение перечислений. Процедура. . .
Переходник USB-CAN-GPIO
Eddy_Em 20.03.2026
Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .
Оттенки серого
Argus19 18.03.2026
Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .
SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++
8Observer8 17.03.2026
Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip
Символические и жёсткие ссылки в Linux.
algri14 15.03.2026
Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора
ФедосеевПавел 14.03.2026
Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru