Question

Составьте программу, которая считает числа счастливых билетов, у которых сумма первых трех чисел и сумма последних трех чисел равна 13.(Счастливый билет-сумма первых трех чисел равна сумме трех последних). Помогите решить, пожалуйста. Pascal. Нужно решить через "Repit, until".

Answer 1

Var
   S,S1,i:byte;
   A:longint;
Begin
Write('Введите номер билета: ');ReadLn(A);
S:=0;
S1:=0;
i:=1;
Repeat
S:=S+A mod 10;
A:=A div 10;
i:=i+1
Until i>3;
Repeat
S1:=S1+A mod 10;
A:=A div 10;
i:=i+1
Until i>6;
if S<>S1 then WriteLn('Билет не является счастливым')
else WriteLn('Счастливый билет!!!')
End.