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

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

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

найти количество трехзначных чисел сумма цифр которых равна 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;
        }

Новые блоги и статьи Все статьи Все блоги /
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .

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