задача с контроши которая будет в понедельник а я ввбще не шарю эту тему

@masya8063 · Регистрация: 01.10.2008

найти количество счастливых билетов в серии автобусных билетов с номирами от 000000 до 999999.
Счастливый билет - в номере сумма цифр первой половины=сумме цифр второй половины.

@Goretex · 21.12.2008, 09:49

Uses CRT;
Var a,b,c,d,e,f: byte;
count: word;
Begin
ClrScr;
count := 0;
For a := 0 to 9 do
For b := 0 to 9 do
For c := 0 to 9 do
For d := 0 to 9 do
For e := 0 to 9 do
For f := 0 to 9 do
If (a+b+c = d+e+f) then
Inc(count);
Writeln('Число счастливых билетов: ',count);
ReadKey;
End.

получи и распишись )

@masya8063 0 / 0 / 0 Регистрация: 01.10.2008 Сообщений: 11
		1
	задача с контроши которая будет в понедельник а я ввбще не шарю эту тему 21.12.2008, 09:26. Показов 1094. Ответов 1 Метки нет (Все метки) найти количество счастливых билетов в серии автобусных билетов с номирами от 000000 до 999999. Счастливый билет - в номере сумма цифр первой половины=сумме цифр второй половины. __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

@Goretex 1 / 1 / 0 Регистрация: 16.12.2008 Сообщений: 15
	21.12.2008, 09:49	2
	Uses CRT; Var a,b,c,d,e,f: byte; count: word; Begin ClrScr; count := 0; For a := 0 to 9 do For b := 0 to 9 do For c := 0 to 9 do For d := 0 to 9 do For e := 0 to 9 do For f := 0 to 9 do If (a+b+c = d+e+f) then Inc(count); Writeln('Число счастливых билетов: ',count); ReadKey; End. получи и распишись ) 1

Опции темы