Question

ИНФОРМАТИКА!!!     

Написать программу определения числа билетов с 6-значными номерами,у которых сумма первых 3 десятичных цифр равна сумме 3 последних десятичных цифр (ПАСКАЛЬ)

Answer 1

Program BB;
uses crt;
Var s,a,b,v,z,i:longint;
Begin s:=1; {учитываем билет с номером 000000}
for i:=1 to 999999 do {перебираем билеты от 000001 до 999999}
begin   
v:=i;   
z:=0;   
while z<3 do  begin
z:=z+1;
a:=v mod 10 +a; v:=v div 10 end; {считаем сумму последних трех чисел}   
while z<6 do  begin z:=z+1;
b:=v mod 10 +b;
v:=v div 10
end; {считаем сумму первых трех чисел}   
if a=b then s:=s+1;   
a:=0;   
b:=0;
end;
writeln(s);
ReadKey;
end.