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

Question

Информатика

Марк

12 января, 05:23

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

+5

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