Решить задачу с while...
Билет называют "счастливым", если в его номере сумма первых трех цифр равна сумме последних трех. Подсчитать число "счастливых" билетов и вывести их на экран (000000 до 999999).
Билет называют "счастливым", если в его номере сумма первых трех цифр равна сумме последних трех. Подсчитать число "счастливых" билетов и вывести их на экран (000000 до 999999).
More Questions From This User See All
Answers & Comments
a, n, sum1, sum2, k: longint;
begin
a := 100000;
while a <> 999999 do
begin
sum1 := 0; sum2 := 0;
n := a div 1000;
sum1 := n div 100 + (n div 10) mod 10 + n mod 10;
n := a mod 1000;
sum2 := n div 10 + (n div 100) mod 10 + n mod 10;
if sum1 = sum2 then
begin
writeln(a, ' - "счастливый" билет');
k := k + 1;
end;
a := a + 1;
end;
writeln('Всего ', k, ' таких билетов');
readln
end.