Найти минимальное из трех чисел

@mordol · Регистрация: 12.05.2015

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

Задача №1 Найти минимальное из трех чисел:20,35,45.
Задача №2 Найти сумму четных чисел на отрезке от 3 до 41.
Задача №3 Вывести первую цифру числа:25
Задача №4 Сколько раз встречается 1 цифра в числе:1113
Задача №5 Сумму цифр числа 250
Задача №6 Сумма чисел в диапазоне от 5 до 12

@Surrogate · 12.05.2015, 10:57

я вам посоветую почитать сначала правила данного форума! чувствуется при регистрации вы это проигнорировали

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

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

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

На каждый вопрос создавайте по одной теме - это помогает избежать путаницы в ответах и облегчает поиск.

@mordol · 12.05.2015, 10:58 **[ТС]**

понятно

@Surrogate · 12.05.2015, 11:22

понятно, действуйте !

@mordol · 12.05.2015, 12:59 **[ТС]**

1

Visual Basic
1
2
IF A > B THEN MAX = A ELSE MAX = B
IF C > MAX THEN MAX =C

2

Visual Basic
1
2
3
4
SUM = 0
FOR I = 3 TO 41 STEP 1
IF I MOD 2 = 0 THEN SUM = SUM + I
NEXT I

3

Visual Basic
1
X = 25 \ 10

4

Visual Basic
1
2
3
4
5
6
С = 0
N = 1113
Do While N > 0
 IF N Mod 10 = 1 THEN C = C + 1
 N = N \ 10
Loop

5

Visual Basic
1
2
3
4
5
6
Sum = 0
N = 250
Do While N > 0
 S = Sum + N Mod 10
 N = N \ 10
Loop

6

Visual Basic
1
2
SUM = 0
FOR i = 5 TO 12 STEP 1

коды правильные?

@Surrogate · 12.05.2015, 13:10

есть 2 варианта проверить:
1. самый простой - погонять их в редакторе VBA
2. для любителей экстрима - показать их в таком виде преподавателю

@Vlad999 · 12.05.2015, 13:15

1 задание

Найти минимальное

а у вас?

@Surrogate · 12.05.2015, 13:15

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

Do While N > 0
S = Sum + N Mod 10
N = N \ 10
Loop

что-то мне подсказывает что здесь будет бесконечный цикл - сколько не дели положительное число N на 10, меньше 0 оно не станет

@Евгений С · 12.05.2015, 13:34

Странные вы, полезли/послали в какие-то дебри, когда вопрос стоял куда проще.
Задача №1 Найти минимальное из трех чисел:20,35,45.
Ответ: 20
Задача №2 Найти сумму четных чисел на отрезке от 3 до 41.
Ответ: 418
Задача №3 Вывести первую цифру числа:25
Ответ: 2
Задача №4 Сколько раз встречается 1 цифра в числе:1113
Ответ: три раза
Задача №5 Сумму цифр числа 250
Ответ: 7
Задача №6 Сумма чисел в диапазоне от 5 до 12
Требуется уточнить, входят ли 5 и 12 в диапазон,
если нет, то 51,
если да, то 68.
И то, если речь идёт о целых (или натуральных) числах, если же в задаче необходимо просуммировать в все рациональные числа, то смело рисуй бесконечность.
Удачи в четверти, держись, второй класс - он самый сложный.

@Surrogate · 12.05.2015, 13:42

Евгений С, ви таки не дооцениваете нашего ~~поциЭнта~~ топик-стартера !
он шо таки зря капс-локом свои попыки в коде набирал ?
Ценю ваш юмор в стиле КапитанаОчевидность™

@Евгений С · 12.05.2015, 13:43

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

SUM = 0
FOR i = 5 TO 12 STEP 1

тут определённо не хватает слова Next, оно замыкает тело цикла, но в теле так же нужно что-то прописать, в общем, тема кодинга не раскрыта.

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

3
X = 25 \ 10

не совсем то: конкретно к этому числу подойдёт, однако, 255 уже даст другой ответ. Любую задачку нужно решать сферически. Я бы предложил преобразовать чиловой формат в текстовый (стринговый/String) и вычленить первый символ.
Но для этого нужно почитать про форматы данных и обозначить их в начале кода через Dim

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

FOR I = 3 TO 41 STEP 1

STEP был придуман не случайно,.. куда изящнее будет, если установить шаг = 2, но это я уже придераюсь)))

@Vlad999 · 12.05.2015, 13:46

Сообщение от Евгений С

куда изящнее будет, если установить шаг = 2

тогда уж и For i=4 To 40
3. х=Val(25/10)

@Евгений С · 12.05.2015, 13:57

Vlad999, не, ну если полностью расписывать, то сферически, то диапазон задаёт пользователь, так что, и 4 и 40 должны пройти проверку на чётность до или после, откатаны на чётное/не чётное, и запущены в цикл с шагом 2.
а по третьему имел в виду.
х = str(25)
и вытащить первый символ стринга.
Так учили. Так правильнее.

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

Сообщение от Евгений С

должны пройти проверку на чётность до или после

конечно, до!

Visual Basic
1
2
x = 25 '(хотя лучше всё же вводить пользователю, так что тут текстбокс, но это за пределами курса, как я понял,
s = str(x)

и тд.

@Surrogate · 12.05.2015, 13:58

что-то сегодня меня не посещают сферические мысли. задание номер 3

Visual Basic
1
MsgBox Left(25, 1)

@Vlad999 · 12.05.2015, 13:59

Евгений С,

третий не для вас, а вариант для ТС.

@Surrogate · 12.05.2015, 14:02

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

третий не для вас

а почему никто в условии задания 3 не увидел слова Вывести ?

@Vlad999 · 12.05.2015, 14:17

Surrogate, да тут по логике все ответы куда то выводить нужно.

@Surrogate · 12.05.2015, 14:20

не факт ! есть разница просто найти и просто вывести ?
хотя обычно задания для студентов отличаются особой сферичностью

@Евгений С · 12.05.2015, 15:09

Surrogate, таки мы её вывели в отдельно зарезервированную оперативку. На экран ни кто не просил.

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

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

просто вывести

блин!!! А ведь точно!
код сводится к одной строчке

Visual Basic
1
Print "2"

а мы тут что-то находим...

@ildwine · 12.05.2015, 17:03

Комментарий модератора

mordol, одна задача - одна тема, на будущее...

Новые блоги и статьи Все статьи Все блоги /
Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025	Расскажи мне о Мире, бродяга kumehtar 12.11.2025 — Расскажи мне о Мире, бродяга, Ты же видел моря и метели. Как сменялись короны и стяги, Как эпохи стрелою летели. - Этот мир — это крылья и горы, Снег и пламя, любовь и тревоги, И бескрайние. . .

@mordol 1 / 1 / 2 Регистрация: 12.05.2015 Сообщений: 313

	Найти минимальное из трех чисел 12.05.2015, 10:16. Показов 9400. Ответов 27 Метки нет (Все метки) Задача №1 Найти минимальное из трех чисел:20,35,45. Задача №2 Найти сумму четных чисел на отрезке от 3 до 41. Задача №3 Вывести первую цифру числа:25 Задача №4 Сколько раз встречается 1 цифра в числе:1113 Задача №5 Сумму цифр числа 250 Задача №6 Сумма чисел в диапазоне от 5 до 12 0

@mordol 1 / 1 / 2 Регистрация: 12.05.2015 Сообщений: 313
	12.05.2015, 10:58 [ТС]
	понятно 0

@Surrogate Ушел с CyberForum совсем! 874 / 183 / 25 Регистрация: 04.05.2011 Сообщений: 1,020 Записей в блоге: 110
	12.05.2015, 11:22
	понятно, действуйте ! 0

@Surrogate Ушел с CyberForum совсем! 874 / 183 / 25 Регистрация: 04.05.2011 Сообщений: 1,020 Записей в блоге: 110
	12.05.2015, 13:10
	есть 2 варианта проверить: 1. самый простой - погонять их в редакторе VBA 2. для любителей экстрима - показать их в таком виде преподавателю 1

@Евгений С самый вменяемый тролль 564 / 52 / 8 Регистрация: 19.09.2012 Сообщений: 193
	12.05.2015, 13:34
	Странные вы, полезли/послали в какие-то дебри, когда вопрос стоял куда проще. Задача №1 Найти минимальное из трех чисел:20,35,45. Ответ: 20 Задача №2 Найти сумму четных чисел на отрезке от 3 до 41. Ответ: 418 Задача №3 Вывести первую цифру числа:25 Ответ: 2 Задача №4 Сколько раз встречается 1 цифра в числе:1113 Ответ: три раза Задача №5 Сумму цифр числа 250 Ответ: 7 Задача №6 Сумма чисел в диапазоне от 5 до 12 Требуется уточнить, входят ли 5 и 12 в диапазон, если нет, то 51, если да, то 68. И то, если речь идёт о целых (или натуральных) числах, если же в задаче необходимо просуммировать в все рациональные числа, то смело рисуй бесконечность. Удачи в четверти, держись, второй класс - он самый сложный. 0

@Surrogate Ушел с CyberForum совсем! 874 / 183 / 25 Регистрация: 04.05.2011 Сообщений: 1,020 Записей в блоге: 110
	12.05.2015, 13:42
	Евгений С, ви таки не дооцениваете нашего ~~поциЭнта~~ топик-стартера ! он шо таки зря капс-локом свои попыки в коде набирал ? Ценю ваш юмор в стиле КапитанаОчевидность™ 0

@Vlad999 3946 / 2339 / 790 Регистрация: 02.11.2012 Сообщений: 6,214
	12.05.2015, 13:59
	Евгений С, третий не для вас, а вариант для ТС. 0

@Vlad999 3946 / 2339 / 790 Регистрация: 02.11.2012 Сообщений: 6,214
	12.05.2015, 14:17
	Surrogate, да тут по логике все ответы куда то выводить нужно. 0

@Surrogate Ушел с CyberForum совсем! 874 / 183 / 25 Регистрация: 04.05.2011 Сообщений: 1,020 Записей в блоге: 110
	12.05.2015, 14:20
	не факт ! есть разница просто найти и просто вывести ? хотя обычно задания для студентов отличаются особой сферичностью 0