С помошью циклов вывести на экран номера всех "счастливых" ...
С помошью циклов вывести на экран номера всех "счастливых" билетов из диапазона 000000 до 999999
Есть ответ
17.12.2022
358
Ответ
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.
Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
Просто нажмите на кнопку "Подарить".
17.12.2022
