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

Question

Информатика

Ангелиныч

13 января, 20:55

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

+4

Ответы (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) ;

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.