Дано натуральные числа K и N. Составить программу формирования массива А

@Sumy · Регистрация: 01.03.2013

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

Помогите написать программу:
Дано натуральные числа K и N. Составить программу формирования массива А, элементами которого являются числа, сумма цифр которых равна К и не больше N.
Нашел под Паскаль, переделал но она не работает

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
void __fastcall TForm1::Button1Click(TObject *Sender)
{  int K,N,i,s,n,c;
s=0;
 K=StrToInt(Edit1->Text);
 N=StrToInt(Edit2->Text);
 int A[100];
  s=0;
 while (n!=0)
  {
  s=s+n%10;
  n=n /10;
   }
  c=0;
 for (i=1; i<N;i++) {
 if (s=K)
c++;
A[c]=i;
}
 for(i=1;i<c;i++) {
 Memo1->Lines->Add("A["+IntToStr(i)+"]="+(A[i])); }
}

Пример K=10,N=100. Массив должен состоять из:19 28 37 46 55 64 73 82 91

@Graf_N · 17.03.2013, 21:26

Sumy, Что конкретно не работает?) На что ругается?

@Sumy · 17.03.2013, 21:34 **[ТС]**

Graf_N, Да бред какой-то выводит
Ввожу 10 и 100, выводит:
A[1]=1
A[2]=2
A[3]=3
A[4]=4
A[5]=5
A[6]=6
A[7]=7
A[8]=8
A[9]=9
A[10]=10
A[11]=11
...

@Graf_N · 17.03.2013, 21:39

Sumy, А должно?

@Sumy · 17.03.2013, 21:45 **[ТС]**

Graf_N, 19 28 37 46 55 64 73 82 91

@Graf_N · 17.03.2013, 21:50

Sumy, Ну вообще косяк в n маленьком думаю, поскольку ты его нигде не инициализируешь, то у тебя там лежит такое дикое число)))

Добавлено через 1 минуту
Sumy, Но вообще странно, ведь у тебя вайл s никуда не девает, он ее постоянно заменяет и в циклу фор переходит уже s последнее...

@Sumy · 17.03.2013, 22:21 **[ТС]**

Graf_N,

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
void __fastcall TForm1::Button1Click(TObject *Sender)
{  int K,N,i,s,n,c,j,k;
K=StrToInt(Edit1->Text);
 N=StrToInt(Edit2->Text);
 int A[100];
j=0;
for (i=1;i<N;i++)
    {
      s=0;
      n=i;
      while (n>0)
    {
      s= s+n%10;
      n=n/10;
    }
      if (s=K)
    {
      j=j+1;
      A[j]= i;
    }
      }
for (i=1; i<j;i++) {
Memo1->Lines->Add("A["+IntToStr(i)+"]="+(A[i]));
}
}

Сделал так , но все равно выводит:
A[1]=1
A[2]=2
A[3]=3
A[4]=4
A[5]=5
A[6]=6
A[7]=7
A[8]=8
A[9]=9
A[10]=10
A[11]=11

Добавлено через 2 минуты
Заработало !!
Не заметил что написал if(s=K), а надо if(s==K)

@Graf_N · 17.03.2013, 23:24

Sumy, Эх, я тоже проглядел)

Новые блоги и статьи Все статьи Все блоги /
1С: Контроль уникальности заводского номера Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере документа выдачи шин для спецтехники с табличной частью. Данные берутся из регистра сведений, по которому настроено. . .	Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения anaschu 22.03.2026 e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git	1С: Программный отбор элементов справочника по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .	Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .
Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .	1С: Программный отбор элементов справочника по значению перечисления Maks 21.03.2026 Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит значение перечислений. / / Событие "НачалоВыбора" реквизита на форме. . .	Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .

@Graf_N 26 / 26 / 0 Регистрация: 30.12.2012 Сообщений: 125
	17.03.2013, 21:26
	Sumy, Что конкретно не работает?) На что ругается? 0

@Sumy 0 / 0 / 0 Регистрация: 01.03.2013 Сообщений: 42
	17.03.2013, 21:34 [ТС]
	Graf_N, Да бред какой-то выводит Ввожу 10 и 100, выводит: A[1]=1 A[2]=2 A[3]=3 A[4]=4 A[5]=5 A[6]=6 A[7]=7 A[8]=8 A[9]=9 A[10]=10 A[11]=11 ... 0

@Graf_N 26 / 26 / 0 Регистрация: 30.12.2012 Сообщений: 125
	17.03.2013, 21:39
	Sumy, А должно? 0

@Sumy 0 / 0 / 0 Регистрация: 01.03.2013 Сообщений: 42
	17.03.2013, 21:45 [ТС]
	Graf_N, 19 28 37 46 55 64 73 82 91 0

@Graf_N 26 / 26 / 0 Регистрация: 30.12.2012 Сообщений: 125
	17.03.2013, 21:50
	Sumy, Ну вообще косяк в n маленьком думаю, поскольку ты его нигде не инициализируешь, то у тебя там лежит такое дикое число))) Добавлено через 1 минуту Sumy, Но вообще странно, ведь у тебя вайл s никуда не девает, он ее постоянно заменяет и в циклу фор переходит уже s последнее... 1

@Graf_N 26 / 26 / 0 Регистрация: 30.12.2012 Сообщений: 125
	17.03.2013, 23:24
	Sumy, Эх, я тоже проглядел) 0