Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
0 / 0 / 0
Регистрация: 01.10.2019
Сообщений: 14

Если остаток при делении заданного числа на 3 больше 1, то утроить это число

03.10.2019, 09:53. Показов 1288. Ответов 2
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Разработать блок-схему алгоритма, создать проект в VBA
Если остаток при делении заданного числа на 3 больше 1, то утроить это число, иначе оставить без изменения.
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
03.10.2019, 09:53
Ответы с готовыми решениями:

Вложенный цикл. Найти трехзначные числа, которые при делении на 2 дают остаток 1, при делении на 3 остаток 2, при делении на 4 остаток 3
НАЙТИ С ПОМОЩЬЮ ВЛОЖЕННОГО ЦИКЛА))) найти асе трехзначные числа, которые при делении на 2 дают остаток 1,при делении на 3 остаток 2, при...

Найти все трехзначные числа, которые при делении на 2 дают остаток 1 и при делении на 3 остаток 2
Снова прощу о помощи . Работа в цикле. 1.Программа просит ввести любое число от 0 до 60 после чего подсчитывает сумму всех целых чисел...

Найти остаток при делении числа a на число b
Дочке в 7 классе задали задачку прошу помочь. Спс) В си++ составить программу, которая выводит остаток при делении числа a на...

2
0 / 0 / 0
Регистрация: 01.10.2019
Сообщений: 14
03.10.2019, 19:12  [ТС]
Если остаток при делении заданного числа на 3 больше 1, то утроить это число, иначе оставить без изменения.
0
6 / 6 / 1
Регистрация: 19.09.2019
Сообщений: 30
05.10.2019, 01:21
Milgel,
Visual Basic
1
2
3
Function GetTriple(myInt As Integer) As Long
    GetTriple = IIf((myInt Mod 3) > 1, myInt * 3, myInt)
End Function
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
05.10.2019, 01:21
Помогаю со студенческими работами здесь

Найдите все числа,при делении на 3 дают остаток 1,а при делении на 5 дают остаток 3
Найдите все числа,при делении на 3 дают остаток 1,а при делении на 5 дают остаток 3

Распечатать все натуральные числа меньшие x, при делении на которые число x дает составной остаток
Вариант №26 Ввести натуральное число x. Распечатать все натуральные числа меньшие x, при делении на которые число x дает составной...

Распечатать все натуральные числа меньшие x, при делении на которые число x дает простой остаток
Вариант №25 Ввести натуральное число x. Распечатать все натуральные числа меньшие x, при делении на которые число x дает простой остаток.

Верно ли, что при делении числа а на число b получается остаток, равный одному из двух заданных чисел
Pomogite reshit zhadachu,please!Zaranee spasibo! Oпределить, верно ли, что при делении отрицательного целого числа а на положительное...

Определить, верно ли, что при делении неотрицательного целого числа на положительное число получается указанный остаток
Мальчики.помогите пожалуйста решить задачу,послезавтра здавать,а я все разобраться не могу с матлабом,даже представления не имею:cry: буду...


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI
Eddy_Em 18.02.2026
Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .
Символьное дифференцирование
igorrr37 13.02.2026
/ * Программа принимает математическое выражение в виде строки и выдаёт его производную в виде строки и вычисляет значение производной при заданном х Логарифм записывается как: (x-2)log(x^2+2) -. . .
Камера Toupcam IUA500KMA
Eddy_Em 12.02.2026
Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу
zbw 12.02.2026
И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила»
zbw 12.02.2026
«Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 12.02.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 11.02.2026
Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image
8Observer8 10.02.2026
Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru