Подсчитать число тех "счастливых" билетов, в которых сумма трех цифр равна 13

@Hamond · Регистрация: 29.04.2010

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

Не поможите решить задание :
Билет называют «счастливым», если в его номере сумма первых трех цифр равна сумме последних трех. Подсчитать число тех «счастливых» билетов, в которых сумма трех цифр равна 13. Номер билета может быть от 000000 до 999999.

@giga_person · 29.04.2010, 23:20

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
procedure TForm1.Button1Click(Sender: TObject);
 var
   s : string;
   i : integer;
   ch : integer;
begin
 i := 0;
 ch := 0;
 
 repeat
   s := Memo1.Lines[i];
   if ((StrToInt(s[1]) + StrToInt(s[2]) + StrToInt(s[3])) = (StrToInt(s[4]) + StrToInt(s[5]) + StrToInt(s[6])))
        and ((StrToInt(s[1]) + StrToInt(s[2]) + StrToInt(s[3])) = 13)
   then inc(ch);
   inc(i);
 until i = 999999;
 
 ShowMessage('Чило билетиков' + #13 + IntToStr(ch));
 
end;

s - каждая строка в мемо - типо номер билетика;
i - номер строки;
ch - тип счётчик.

Алгоритм можт туповат, но работает.

until i = 999999 - вводить все - от 000000 до 999999 - а то ругаться будет (StrToInt всё таки), или ввести там переменную и вводить её откуда нить из Edit-а

@Hamond · 29.04.2010, 23:33 **[ТС]**

Чет оно у меня ругаетса( ошибка вылетает, когда на кнопку тыкаю(

а через цыкл for можно зделать ето?

@giga_person · 29.04.2010, 23:42

until i = 999998..

Без разницы...

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
procedure TForm1.Button1Click(Sender: TObject);
 var
   s : string;
   i : integer;
   ch : integer;
begin
 ch := 0;
 
 for i := 0 to 999998 {(to число билетиков)} do
 begin
   s := Memo1.Lines[i];
   if ((StrToInt(s[1]) + StrToInt(s[2]) + StrToInt(s[3])) = (StrToInt(s[4]) + StrToInt(s[5]) + StrToInt(s[6])))
        and ((StrToInt(s[1]) + StrToInt(s[2]) + StrToInt(s[3])) = 13)
   then inc(ch);
 end;
 
 ShowMessage('Чило билетиков' + #13 + IntToStr(ch));
 
end;

Одна строка - один билет.

С нуля - потому что первая строка в memo имеет индекс 0

@Hamond · 29.04.2010, 23:53 **[ТС]**

Лан пасиб))лови + а то не знаю делфи ругаетса..

@*~<`PIK`>~* · 30.04.2010, 00:07

Hamond, а ты в мемо внес 999998 строк??? если ты внесеш на 1 меньше чем 999998 то уже будет ошибка))

@Hamond · 30.04.2010, 00:14 **[ТС]**

в смысле?)

@*~<`PIK`>~* · 30.04.2010, 00:14

для заполнения мемо номерами билетов могу предложить такой код

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
var i,j:integer;
    s:string;
begin
For i:=0 to 999999 do
begin
s:='';
For j:=1 to 6-(Length(IntToStr(i))) do
Insert('0', s, 1);
s:=s+IntToStr(i);
Memo1.Lines.Add(s);
end;
end;

заполняет от 000000 до 999999

@Hamond · 30.04.2010, 00:16 **[ТС]**

мм пасиб))

@*~<`PIK`>~* · 30.04.2010, 00:32

Сообщение от Hamond

в смысле?)

в том смысле что код который дал giga_person проганяет циклом мемо от 000000'ой до 999999'ой строки и если какойто строки небудет то выскочит ошибка преобразования(StrToInt). Поетому чтобы пользоваться его кодом нужно сначала заполнить мемо номерами билетов(то есть моим кодом)

@Hamond · 30.04.2010, 00:38 **[ТС]**

хм... учту на будущее!

Новые блоги и статьи Все статьи Все блоги /
Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .
Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .

@Hamond 0 / 0 / 0 Регистрация: 29.04.2010 Сообщений: 16

	Подсчитать число тех "счастливых" билетов, в которых сумма трех цифр равна 13 29.04.2010, 22:54. Показов 3079. Ответов 10 Метки нет (Все метки) Не поможите решить задание : Билет называют «счастливым», если в его номере сумма первых трех цифр равна сумме последних трех. Подсчитать число тех «счастливых» билетов, в которых сумма трех цифр равна 13. Номер билета может быть от 000000 до 999999. 0

@Hamond 0 / 0 / 0 Регистрация: 29.04.2010 Сообщений: 16
	29.04.2010, 23:33 [ТС]
	Чет оно у меня ругаетса( ошибка вылетает, когда на кнопку тыкаю( а через цыкл for можно зделать ето? 0

@Hamond 0 / 0 / 0 Регистрация: 29.04.2010 Сообщений: 16
	29.04.2010, 23:53 [ТС]
	Лан пасиб))лови + а то не знаю делфи ругаетса.. 0

@~<`PIK`>~ ﻌﺹ ﺦ ﺖﻀ ﺹ ﻙ ﺵﻔ ﺊ ﺘﺝ 607 / 387 / 81 Регистрация: 15.12.2009 Сообщений: 753
	30.04.2010, 00:07
	Hamond, а ты в мемо внес 999998 строк??? если ты внесеш на 1 меньше чем 999998 то уже будет ошибка)) 0

@Hamond 0 / 0 / 0 Регистрация: 29.04.2010 Сообщений: 16
	30.04.2010, 00:14 [ТС]
	в смысле?) 0

@Hamond 0 / 0 / 0 Регистрация: 29.04.2010 Сообщений: 16
	30.04.2010, 00:16 [ТС]
	мм пасиб)) 0

@Hamond 0 / 0 / 0 Регистрация: 29.04.2010 Сообщений: 16
	30.04.2010, 00:38 [ТС]
	хм... учту на будущее! 0