Проверить, что у целого числа сумма цифр - число, начинающееся на 4 - VBA

VBA

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Рейтинг 4.83/6:

@Алена1993 0 / 0 / 0 Регистрация: 29.05.2011 Сообщений: 19

	Проверить, что у целого числа сумма цифр - число, начинающееся на 4 13.05.2013, 04:43. Показов 1182. Ответов 1 Метки нет (Все метки) 1. Написать логическую функцию, принимающую значения True, если в целом числе, являющимся единственным аргументом этой функции, сумма цифр-число, начинающееся на 4. 2. [Правила, пп. 4.3, 4.4, 5.16] 0

IT_Exp

Эксперт

34794 / 4073 / 2104

Регистрация: 17.06.2006

Сообщений: 32,602

Блог

13.05.2013, 04:43

Ответы с готовыми решениями:

Проверить, делится ли сумма цифр введенного двухзначного целого числа на 5
К данной задаче составить блок схему и программу на языке Паскаль. Составить программу, проверяющую, верно ли утверждение, что сумма цифр...

1. Дано натуральное число. Верно ли, что сумма четных цифр больше сумма нечетных цифр данного числа
1. Дано натуральное число. Верно ли, что сумма четных цифр больше сумма нечетных цифр данного числа.

Найти все такие N(N<100),что у числа N!(факториал) сумма цифр-квадрат целого числа
Без этой задачи мне не ставят зачет и я не могу выйти на сэссию=( ""Найти все такие N(N<100),что у числа N!(факториал) сумма...

Catstail

Супер-модератор

Эксперт функциональных языков программирования

38177 / 21112 / 4307

Регистрация: 12.02.2012

Сообщений: 34,716

Записей в блоге: 14

13.05.2013, 14:05

Visual Basic
1
2
3
4
5
6
7
8
Function c4(n as integer) As Boolean
  S$=Cstr(n)
  k%=0
  for i%=1 to len(S$)
      k%=k%+Val(mid$(S$,i%,1))
  Next i%
  c4=(left$(Cstr(k%),1)="4")  
End Function

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

BasicMan

Эксперт

29316 / 5623 / 2384

Регистрация: 17.02.2009

Сообщений: 30,364

Блог

13.05.2013, 14:05

Помогаю со студенческими работами здесь

Найти все такие n (n ≤100), что у числа n! сумма цифр – квадрат целого числа.
помогите решить задачи плизз!!очень прошу!! 1) Найти все такие n (n ≤100), что у числа n! сумма цифр – квадрат целого числа. 2) Даны ...

Найти все такие натуральные N (N<=15), что у N! сумма цифр - квадрат целого числа
Здравствуйте. Найти все такие натуральные N (N<=15), что у N! сумма цифр - квадрат целого числа.

Верно ли утверждение, что сумма цифр введенного вами целого числа делится на 5
Привет! Помогите, пожалуйста с тремя задачками. 1.Ветвления 2. Циклы 3.Массив. Через час аттестация. Я знаю вы профи. и вы моя последняя...

Верно ли утверждение, что сумма цифр введенного вами целого числа делится на 5
Привет! Помогите, пожалуйста с тремя задачками. 1.Ветвления 2. Циклы 3.Массив. Через 2 часа аттестация. Я знаю вы профи. и вы моя последняя...

Верно ли утверждение, что сумма цифр введенного вами целого числа делится на 5?
верно ли утверждение, что сумма цифр введенного вами целого числа делится на 5.

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

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .
Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь 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. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.

Наверх