Счастливым считается билет с 6 значным номером, у которого сумма первых 3 цифр равна сумме послед 3. напечатать номера счастливых билетов. , решите, буду ! паскаль, без всяких сложностей, на школьном уровне 10 класса: )
TATAP2004
3
16.03.2019 20:20
1
Другие вопросы по теме Информатика
Ясныйпень
19.10.2021 20:47
tanea201111
19.10.2021 20:54
ievghienii1
27.04.2020 15:59
maks7388
27.04.2020 15:59
kadaran
21.10.2020 09:08
правелостиля
07.10.2019 08:11
lida113
20.05.2021 21:38
EM20011
20.05.2021 21:38
Dedula5
20.05.2021 21:38
Популярные вопросы
- В прямоугольной трапеции диагональ является биссектрисой острого...
2 - Визначте граматичну основу в реченні Шість — два на три....
3 - Придумать 3 закона от лица участника Народного собрания в Древней...
1 - Найти радиус окружности вписанной в правильный четырехугольник,...
3 - Розвяжіть прямокутний трикутник АВС, якщо кут А=90° кут В=31°...
1 - Помагите это математика 5 класс...
3 - Нужна сравнительная харктеристика. Сравнительная характеристика...
3 - Сочинение: Матери - начало человечества. На 1 страницу...
2 - что сможете P. S. Где написанно В параллелограмме ABCD тоже...
3 - Сравните тактику боя римской армии и армии греков. Какая из...
3
var i:longint;
function sum(c:integer):integer
begin
sum := c mod 10 + c div 10 mod 100 + c div 100;
end
Begin
for i := 1 to 999999 do
if (sum(i div 1000) = sum(i mod 1000) ) then
writeln(i);
End