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

Ответы 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.
- Автор:
  jaden663
- 1 год назад
- 7
Добавить свой ответ

Еще вопросы