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

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

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

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

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

C#

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

    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#

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#

        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;
        }

Новые блоги и статьи
Использование связки C# и PHP в корпоративной разработке и микросервисной архитектуре InfoMaster 16.01.2025 Введение в интеграцию C# и PHP В современной корпоративной разработке все чаще возникает потребность в создании гибких и масштабируемых решений, способных эффективно решать широкий спектр. . .	Как использовать Kerio дома для управления сетью и пользователями InfoMaster 16.01.2025 Использование технологий для улучшения повседневной жизни стало неотъемлемой частью современного быта. Одной из таких технологий является Kerio — мощный инструмент для управления сетью и. . .	Есть ли будущее у DVD и Blu-ray? InfoMaster 16.01.2025 В эпоху стремительного развития цифровых технологий и повсеместного распространения потоковых сервисов вопрос о будущем физических носителей информации становится все более актуальным. Особенно остро. . .	Как проводить научные вычисления на Python InfoMaster 15.01.2025 Python стал одним из наиболее востребованных языков программирования в области научных вычислений благодаря своей простоте, гибкости и обширной экосистеме специализированных библиотек. Научные. . .	Создание игры типа Minecraft на PyGame/Python: пошаговое руководство InfoMaster 15.01.2025 В данном руководстве мы рассмотрим процесс создания игры в стиле Minecraft с использованием библиотеки PyGame на языке программирования Python. Этот проект идеально подходит как для начинающих. . .	Как создать свою первую игру в стиле Doom на Unreal Engine InfoMaster 15.01.2025 Разработка шутера от первого лица в стиле классического Doom представляет собой увлекательное путешествие в мир игрового программирования, где сочетаются творческий подход и технические навыки. . . .
Параллельное программирование: основные технологии и принципы InfoMaster 15.01.2025 Введение в параллельное программирование Параллельное программирование представляет собой фундаментальный подход к разработке программного обеспечения, который позволяет одновременно выполнять. . .	Как написать микросервис на C# с Kafka, MediatR, Redis и GitLab CI/CD InfoMaster 15.01.2025 В современной разработке программного обеспечения микросервисная архитектура стала стандартом де-факто для создания масштабируемых и гибких приложений. Этот подход позволяет разделить сложную систему. . .	Что такое CQRS и как это реализовать на C# с MediatR InfoMaster 15.01.2025 Концепция CQRS и её роль в современной разработке В современном мире разработки программного обеспечения архитектурные паттерны играют ключевую роль в создании масштабируемых и поддерживаемых. . .	Как настроить CI/CD с Azure DevOps InfoMaster 15.01.2025 CI/ CD, или непрерывная интеграция и непрерывное развертывание, представляет собой современный подход к разработке программного обеспечения, который позволяет автоматизировать и оптимизировать процесс. . .	Как настроить CI/CD с помощью Jenkins InfoMaster 15.01.2025 Введение в CI/ CD и Jenkins В современной разработке программного обеспечения непрерывная интеграция (CI) и непрерывная доставка (CD) стали неотъемлемыми элементами процесса создания качественных. . .	Как написать микросервис на Go/Golang с Kafka, REST и GitHub CI/CD InfoMaster 14.01.2025 Определение микросервиса, преимущества использования Go/ Golang Микросервис – это архитектурный подход к разработке программного обеспечения, при котором приложение состоит из небольших, независимо. . .

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

	27.09.2015, 19:04