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

@jamesmcfly · Регистрация: 12.09.2015

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

найти количество трехзначных чисел сумма цифр которых равна A а само число заканчивается цифрой B (A и B) вводятся с клавиатуры. Нужно консольное приложение

Вот задание нужна помощь
1. Дано натуральное число:
• найти количество цифр данного числа;
• определить, верно ли, что данное число заканчивается на нечетную цифру.
2. Найти количество трехзначных чисел, сумма цифр которых равна А, а само число заканчивается цифрой В (А и В вводятся с клавиатуры); (Нужно консольное приложение)
Я начал и вот

C#    
        
            
                
                
                
                
            
        
    Скопировано
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
 
namespace ConsoleApplication1
{
    class Program
    {
        static void Main(string[] args)
        {
            int b,c,count,i,j,num,p;
            string s,a,d,f;
            byte res;
            try
            {
                Console.Write("num:=");
                a = Console.ReadLine();
                num = Convert.ToInt32(a);
                Console.Write("b:=");
                d = Console.ReadLine();
                b = Convert.ToInt32(d);
                Console.Write("c:=");
                f = Console.ReadLine();
                c = Convert.ToInt32(f);
                p = num % 10;
                if (p % 2 == 0)
                {
                    Console.WriteLine("Четное");
                }
                else
                {
                    Console.WriteLine("Нечетное");
                }
                if (b>27)
                {
                    Console.WriteLine("Таких трезначных чисел нет");
                    
                }
                if (b>=c)
                {
                    Console.WriteLine("b не может быть больше равно c ");
                    
                }
                s = Convert.ToString(num);
                res = Convert.ToByte(s.Length);
                Console.WriteLine("Количество цифр:= {0,0}", res);
                for (i = 0; i < 9; i++)
                    for (j = 0; j < 9; j++)
//КАК прописать if(i+j+c=b)
//КАК ПРОПИСАТЬ ФУНКЦИЮ inc(count)
                     Console.ReadKey();
 
 
 
 
                    }
 
            catch
            {
                Console.WriteLine("Введите занового");
//КАК СДЕЛАТЬ ЧТОБЫ ПРОГРАММА НАЧАЛАСЬ ЗАНОВО
                
            }
        }
    }
}

вот код делфи на форме

Delphi    
        
            
                
                
                
                
            
        
    Скопировано
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
    unit Unit2;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, Buttons, StdCtrls;
    
    type
     TForm2 = class(TForm)
        Edit1: TEdit;
        Edit2: TEdit;
        Label1: TLabel;
        Label2: TLabel;
        Label3: TLabel;
        Label4: TLabel;
        Label5: TLabel;
        Label6: TLabel;
        Label7: TLabel;
        Button1: TButton;
        Button2: TButton;
        BitBtn1: TBitBtn;
        BitBtn2: TBitBtn;
        procedure Button1Click(Sender: TObject);
        procedure Button2Click(Sender: TObject);
        procedure BitBtn1Click(Sender: TObject);
        procedure BitBtn2Click(Sender: TObject);
        procedure Edit1KeyPress(Sender: TObject;var key:char);
        procedure Edit2KeyPress(Sender: TObject;var key:char);
    
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      Form2: TForm2;
    
    implementation
    uses Standart,Unit1;
    
    
    {$R *.dfm}
    procedure TForm2.Edit1KeyPress(Sender: TObject;var key:char);
    begin
    if not(key in['0'..'9']) then
    key:=#8;
    end;
    procedure TForm2.Edit2KeyPress(Sender: TObject;var key:char);
    begin
    if not(key in['0'..'9']) then
    key:=#8;
    end;
    procedure TForm2.Button1Click(Sender: TObject);
    var a,b,count,i,j:integer;
    begin
    try
     //читаем число из Эдита
        //если число некорректное, возникнет исключение
    label3.Caption:='';
    label5.Caption:='';
    label6.Caption:='';
    //очищаем лейбы
    a:=StrToInt (Edit1.Text);
    b:=StrToInt (Edit2.Text);
    if a>27 then
    label3.Caption:='Таких трехзначных чисел нет, где их сумма цифр будет равна a, когда она больше чем 27';
    if b>=a then
    begin
    label5.Caption:='b не может быть больше или равно а';
    //проверяем условие
    exit;
    end;
    for i := 1 to 9 do
     for j := 0 to 9 do
      if (i+j+b=a) then
      begin
        inc(count);
        break;
      end;
      label6.Caption:='Количество трехзначных чисел: ' + IntTOStr(count);
      //выводим результат
    except
    ShowMessage('Введено не целое число');
    Edit1.Text:='';
    Edit2.Text:='';
    end;
    end;
    procedure TForm2.Button2Click(Sender: TObject);
    begin
    label7.Caption:=''
    end;
    procedure TForm2.BitBtn1Click(Sender: TObject);
    begin
    Form1.show;
    Form2.Hide;
    end;
    procedure TForm2.BitBtn2Click(Sender: TObject);
    begin
    StandartTab.Close;
    end;
    end.

@Rius · 27.09.2015, 11:28

C#    
        
            
                
                
                
                
            
        
    Скопировано
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
 
namespace jamesmcfly
{
    class Program
    {
        static void Main(string[] args)
        {
            bool completed = false;
            do
            {
                try
                {
                    Console.Write("Введите число или '0' для выхода := ");
                    var str = Console.ReadLine();
                    Console.WriteLine();
 
                    var num = Convert.ToInt32(str);
 
                    Console.WriteLine("Количество цифр в {0} составляет {1}", num, num.ToString().Length);
 
                    if (num == 0)
                    {
                        completed = true;
                        break;
                    }
 
                    Console.Write("a := ");
                    str = Console.ReadLine();
                    Console.WriteLine();
 
                    var a = Convert.ToInt32(str);
                    Console.WriteLine("a == " + a);
 
                    Console.Write("b := ");
                    str = Console.ReadLine();
 
                    var b = Convert.ToInt32(str) % 10;
                    Console.Write("b == " + b);
                    Console.WriteLine();
 
                    if ((num & 0x01) == 0)
                    {
                        Console.WriteLine("Четное");
                    }
                    else
                    {
                        Console.WriteLine("Нечетное");
                    }
 
                    var digits = new int[] { 0, 1, 2, 3, 4, 5, 6, 7, 8, 9 };
 
                    // :D
                    var numbers = from d1 in digits
                                  from d2 in digits
                                  from d3 in digits
                                  where (d1 + d2 + d3 == a) && d3 == b
                                  select d1 * 100 + d2 * 10 + d3;
 
                    Console.WriteLine("Таких трезначных чисел: " + numbers.Count());
                    Console.WriteLine("Полный список:");
 
                    foreach (var number in numbers)
                    {
                        Console.WriteLine(number);
                    }
                }
                catch (Exception exc)
                {
                    Console.WriteLine(exc.Message);
                    Console.WriteLine(exc.StackTrace);
                }
            }
            while (!completed);
        }
    }
}

@jamesmcfly · 27.09.2015, 12:08 **[ТС]**

спасибо

@XRoy · 27.09.2015, 19:04

jamesmcfly,
Как вариант

C#    
        
            
                
                
                
                
            
        
    Скопировано
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
        public static void Main(string[] args)
        {
            var x = 784845;
 
            var len = (int) Math.Ceiling(Math.Log10(x));
            Console.WriteLine("Количество цифр числа {0} = {1}", x, len);
            Console.WriteLine("Число x заканчивается {0}четной цифрой", x % 2 != 0 ? "не" : "");
 
            int a = 6, b = 7;
 
            for (int i = 100; i <= 999; i++)
            {
                if (b == i%10 && Sum(i) == a)
                {
                    Console.WriteLine(i);
                }
            }
        }
 
        private static int Sum(int n)
        {
            int sum = 0;
 
            while (n != 0)
            {
                sum += n%10;
                n /= 10;
            }
 
            return sum;
        }

Новые блоги и статьи Все статьи Все блоги /
Разработка на PHP и интернет вещей (IoT) Jason-Webb 14.03.2025 Интернет вещей (IoT) произвел настоящую революцию в способах взаимодействия устройств с окружающим миром. В эпоху, когда холодильники сами заказывают молоко, а термостаты учатся вашим привычкам,. . .	Node.js 20: Новые возможности и улучшения производительности Reangularity 14.03.2025 Что же принёс нам релиз Node. js 20? В первую очередь, это существенные улучшения в производительности. Движок V8 получил серьёзные оптимизации, благодаря чему JavaScript-код выполняется заметно. . .	Безопасность кластеров Apache Kafka Javaican 14.03.2025 Apache Kafka стал одним из ключевых компонентов современных архитектур, обрабатывающих потоки данных в режиме реального времени. Его используют тысячи компаний от стартапов до технологических. . .	Контейнеризация ML моделей с помощью Docker и Kubernetes Mr. Docker 14.03.2025 Перенос ML-моделей из лаборатории в продакшн сопровождается целым комплексом проблем. Нередко код, который отлично работает на локальной машине, отказывается функционировать в промышленной среде. . . .	Организация масштабируемого хранилища с Apache Cassandra Codd 14.03.2025 Изначально разработанная в Facebook, а затем переданная Apache Software Foundation, Cassandra сочетает в себе принципы Amazon's Dynamo и Google's BigTable. Эта комбинация создает уникальную. . .
Kafka или Pulsar: Что лучше для потоковой обработки в Java Javaican 14.03.2025 Среди множества решений для потоковой обработки данных Apache Kafka долгое время удерживала лидирующие позиции, став де-факто стандартом в индустрии. Однако в последние годы всё больше внимания. . .	Создание и использование компонентов в Vue 3 Reangularity 14.03.2025 Компонент в Vue - это автономный блок интерфейса, который содержит собственную разметку, логику и стили. Представьте себе кнопку, форму ввода или даже целую панель навигации - всё это можно оформить. . .	Vue 3: Создаем современное веб-приложение с Composition API Reangularity 14.03.2025 В фронтенд-разработке Vue 3 выделяется своим прагматичным подходом. В отличие от React с его минималистичной философией "всё — JavaScript" или Angular с его всеобъемлющим корпоративным подходом, Vue. . .	Разработка контекстных меню в iOS mobDevWorks 14.03.2025 С приходом iOS 13 Apple представила новый API для контекстных меню, который полностью заменил предыдущую технологию 3D Touch peek & pop. Хотя многие разработчики и пользователи испытывают ностальгию. . .	Лучшие практики оптимизации Docker Image Mr. Docker 13.03.2025 Размер Docker-образа влияет на множество аспектов работы с контейнерами. Чем больше образ, тем дольше его загрузка в реестр и выгрузка из него. Для команд разработки, работающих с CI/ CD пайплайнами,. . .

@jamesmcfly 1 / 1 / 0 Регистрация: 12.09.2015 Сообщений: 74
	27.09.2015, 12:08 [ТС]	3
	спасибо 0