Question

С помошью циклов вывести на экран номера всех "счастливых" билетов из диапазона 000000 до 999999

Answer 1

var

 i1,i2,i3,i4,i5,i6:Longint;

begin

 For i1:=0 to 9 do

 For i2:=0 to 9 do

 For i3:=0 to 9 do

 For i4:=0 to 9 do

 For i5:=0 to 9 do

 For i6:=0 to 9 do

     if i1+i2+i3=i4+i5+i6 then Writeln(i1,i2,i3,i4,i5,i6);

end.

Answer 2

var
i1,i2,i3,i4,i5,i6:Longint;
begin
For i1:=0 to 9 do
For i2:=0 to 9 do
For i3:=0 to 9 do
For i4:=0 to 9 do
For i5:=0 to 9 do
For i6:=0 to 9 do
if i1+i2+i3=i4+i5+i6 then Writeln('счастливый билет':i1,i2,i3,i4,i5,i6);
Writeln('все миллионеры :D')
end.