Условие: Написать программу определения количества билетов с 6-значными номерами, у которых сумма первых 3 десятичных цифр равна сумме 3 последних десятичных цифр.
Технические условия: Стандартные.
Примеры входных и выходных файлов: Отсутствуют.
Решение: Идея решения. Просматриваем числа от 0 до 999999. Делим число на 2 части: первые 3 цифры и последние 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:=0 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.
