Счастливые билеты

@Zimin · Регистрация: 03.12.2011

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

Помогите пожалуйста.Обыскал весь форум но вроде такой именно задачи не было;
НАЙТИ СУММУ НОМЕРОВ всех счастливых билетов(6-ти значное число,сумма первых 3-х цифр равна сумме последних 3-х)

@juvmax · 04.12.2011, 00:18

Найдите счастливые троллейбусные билеты, если номера билетов принадлежат промежутку от «а» до «b»
Учитесь искать по форуму!

@kkk008009kkk · 04.12.2011, 00:25

Просматривайте числа от 0 до 999999. Делите число на 2 части: первые 3 цифры и последние 3 цифры, находите сумму цифр каждой из частей, сравниваете результат.

Pascal

Program Task_3;
 
Function Summ(x:longint):byte; {возвращает сумму цифр числа}
 
var k,l:byte;
 
y:longint;
 
begin
 
y:=x;
 
l:=0;
 
while (y<>0) do
 
begin
 
k:=y mod 10;
 
y:=y div 10;
 
l:=l+k
 
end;
 
summ:=l;
 
end;
 
var w1,w2,i,j,count:longint;
 
n,m:byte;
 
BEGIN
 
count:=0;
 
for j:=1 to 999999 do
 
begin
 
w1:=j div 1000;
 
w2:=j mod 1000;
 
if summ(w1) = summ(w2)
 
then begin
 
count:=count+1;
 
writeln(j,' --> ',count)
 
end;
 
end;
 
END.

@Zimin · 04.12.2011, 00:32 **[ТС]**

Ненашел там решения о том как НАЙТИ СУММУ НОМЕРОВ билетов,а не выводить счастливые/несчастливые номера(из интервала).

@kkk008009kkk · 04.12.2011, 00:38

Zimin, Ну так основное решение там дается.Стыдно не уметь делать простенкий алгоритм суммы .

П.С.Caps Lock off.

@Zimin 0 / 0 / 0 Регистрация: 03.12.2011 Сообщений: 4
		1
	Счастливые билеты 03.12.2011, 22:40. Показов 2019. Ответов 4 Метки нет (Все метки) Помогите пожалуйста.Обыскал весь форум но вроде такой именно задачи не было; НАЙТИ СУММУ НОМЕРОВ всех счастливых билетов(6-ти значное число,сумма первых 3-х цифр равна сумме последних 3-х) 0

@juvmax 29 / 29 / 23 Регистрация: 04.11.2011 Сообщений: 65
	04.12.2011, 00:18	2
	Найдите счастливые троллейбусные билеты, если номера билетов принадлежат промежутку от «а» до «b» Учитесь искать по форуму! 0

@Zimin 0 / 0 / 0 Регистрация: 03.12.2011 Сообщений: 4
	04.12.2011, 00:32 [ТС]	4
	Ненашел там решения о том как НАЙТИ СУММУ НОМЕРОВ билетов,а не выводить счастливые/несчастливые номера(из интервала). 0

@kkk008009kkk 46 / 46 / 5 Регистрация: 24.03.2011 Сообщений: 315
	04.12.2011, 00:38	5
	Zimin, Ну так основное решение там дается.Стыдно не уметь делать простенкий алгоритм суммы . П.С.Caps Lock off. 0

Опции темы