Форум программистов, компьютерный форум, киберфорум
Наши страницы
C# для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/6: Рейтинг темы: голосов - 6, средняя оценка - 5.00
EliGataullina
0 / 0 / 0
Регистрация: 06.01.2017
Сообщений: 1
1

Найти все трехзначные числа, в которых есть две одинаковые цифры

06.01.2017, 22:05. Просмотров 1163. Ответов 4
Метки нет (Все метки)

Найти все трехзначные числа, в которых есть две одинаковые цифры. Нужно написать задачу на бэйсике
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
06.01.2017, 22:05
Ответы с готовыми решениями:

Найти все трехзначные числа, в которых хотя бы две цифры повторяются
Вывести на экран: все трехзначные числа, в которых хотя бы две цифры...

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

Вывести на экран все трехзначные числа, в которых хотя бы две цифры повторяются
Здравствуйте, Помогите, пожалуйста, найти ошибку. Циклом while и do while...

Подсчитать количество целых чисел в диапазоне от 100 до 999 у которых есть две одинаковые цифры
Кто может решите пожалуйста задачу с помощью циклов. Заранее спасибо! Задание...

Вывести на экран все четырехзначные числа, в которых ровно три одинаковые цифры
Даны четырехзначные натуральные числа N и K. Из чисел от N до K выбрать те,...

4
OwenGlendower
Супер-модератор
Эксперт .NET
9648 / 8404 / 3599
Регистрация: 17.03.2014
Сообщений: 16,816
Записей в блоге: 1
06.01.2017, 22:07 2
EliGataullina, на каком именно бейсике? VB.NET, VB6, VBA, какой-то другой?
0
ata
270 / 242 / 186
Регистрация: 28.10.2015
Сообщений: 709
07.01.2017, 17:38 3
Казалось бы, при чем тут C#? Впрочем, если подразумевался VB.NET, то с C# можно перевести тривиальным образом, даже автоматические переводчики существуют. По сути, C# и VB.NET - это один и тот же язык с двумя синтаксисами.

C#
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
using System;
using System.Linq;
using System.Collections.Generic;
 
class Program
{
    public static IEnumerable<int> Digits(int n)
    {
        do
        {
            yield return n % 10;
        } while ((n /= 10) != 0);
    }
 
    public static void Main()
    {
        Console.WriteLine(String.Join(", ",
            Enumerable.Range(100, 900).Where(x => Digits(x).Distinct().Count() == 2)
        ));
    }
}
0
OwenGlendower
07.01.2017, 17:48
  #4

Не по теме:

Цитата Сообщение от ata Посмотреть сообщение
По сути, C# и VB.NET - это один и тот же язык с двумя синтаксисами
Это похожие, но тем не менее разные языки.

0
JDFox
0 / 0 / 3
Регистрация: 02.04.2016
Сообщений: 33
08.01.2017, 14:10 5
Я начинающий, глядя на решение товарища @ata, чувствую себя никчемным вообще, решил задачу так
C#
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
class Program
    {
        static void Main(string[] args)
        {
            //Найти все трехзначные числа, в которых есть две одинаковые цифры
            for (int i = 100; i <= 999; i++)
            {
                int schet = i;
                int one = schet / 100;
                schet %= 100;
                int two = schet / 10;
                schet %= 10;
                int three = schet / 1;
                schet %= 1;
                if ((one == two || two == three || three == one))
                {
                    Console.WriteLine(i);
                }
            }
            Console.ReadKey();
        }
    }
Правда она выводит и с тремя равными цифрами, но по условию вроде верно
0
08.01.2017, 14:10
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
08.01.2017, 14:10

Найти все трехзначные числа, у которых сума чисел равна 9
Здравствуйте я совсем недавно начал учить С шарп и пот столкнулся с такой...

Найти все трехзначные числа, сумма цифр которых равна n
Дано натуральное число n (n &lt; 27). Найти все трехзначные числа, сумма цифр...

Найти все трехзначные числа, в записи которых нет одинаковых цифр
Помогите пожалуйста)) Чтобы открыть секретный сейф, агент 007 решил набирать...


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

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru