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

Question

Информатика

Исакий

25 июля, 21:52

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

+1

Ответы (2)

Знаешь ответ?

Артюша · 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);

Writeln ('все миллионеры : D')

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);

end.