Спасибо за вашу помощь
Исходное сообщение
8395
0684
8537
1023
8450
8504
3802
0565
5493
7481
7298
3495
9403
3596
0243
8761
2689
9854
5768
9865
5790
9546
а асли программно?
for i=-9999 to 9999 do
begin
if i="загаденное число" then
Begin
переведи мне пожалуйста мои честно угаденные кредиты :)
end
else
Begin
переведи мне один кредит за оригинальность решения :)
end
end
7392
0236
6382
9893
6368
6437
2390
4678
7647
5734
4637
0000
3727
4788
4893
4789
3482
9394
3478
7890
8903
2899
6764
7858
4789
9809
9589
4566
4576
1212
7894
4789
Угодал?
1000,1001,1002,1003,1004,1005,1006,1007,1008,1009,1010,1011,1012,1013, 1014,1015,1016,1017,1018,1019,1020,1021,1022,1023,1024,1025,1026,1027, 1028,1029,1030........................................................ ...................................................................... ............................................................9990,9991, 9992,9993,9994,9995,9996,9997,9998,9999.
1111
2223
4536
5778
5678
3456
9807
3446
8905
0007
0707
1212
4576
3213
6780
9999
6666
0084
0092
4324
5731
5755
5555
8967
6789
1010
5411
1718
1112
Страницы: «…8910111213141516171819…» |
|
All rights reserved |