Далмат
6 год назад
Составьте программу, которая считает числа счастливых билетов, у которых сумма первых трех чисел и сумма последних трех чисел равна 13.(Счастливый билет-сумма первых трех чисел равна сумме трех последних). Пожалуйста посчитайте решить, пожалуйста. Pascal. Нужно решить через "Repit, until".
ОТВЕТЫ
Ostap
Oct 24, 2020
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.
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.
237
Смежные вопросы:
