algorytm.org

Implementacja w Delphi/Pascal

Baza Wiedzy
wersja offline serwisu przeznaczona na urządzenia z systemem Android
Darowizny
darowiznaWspomóż rozwój serwisu
Nagłówki RSS
Artykuły
Implementacje
Komentarze
Forum
Bookmarki






Sonda
Implementacji w jakim języku programowania poszukujesz?

NIP - Implementacja w Delphi/Pascal
Ocena użytkownikóww: *****  / 6
SłabyŚwietny
Nadesłany przez Tomasz Lubiński, 06 października 2005 01:00
Kod przedstawiony poniżej przedstawia główną część rozwiązania problemu.
Pobierz pełne rozwiązanie.

Jeżeli nie odpowiada Ci sposób formatowania kodu przez autora skorzystaj z pretty printer'a i dostosuj go automatycznie do siebie.

nip_d/nip_d.dpr:
//www.algorytm.org
//NIP
//(c) 2005 Tomasz Lubinski

program nip_d;
{$APPTYPE CONSOLE}
uses
  SysUtils;

var
  NIP : array [0..9] of Integer;
  valid : boolean = false;
  NIPstr : string;

  DepNo : array [0 .. 762] of Integer = (
101, 102, 103, 104, 105, 106, 107, 108, 109, 111, 112, 113, 114, 115, 116,
117, 118, 119, 121, 122, 123, 124, 125, 126, 127, 128, 129, 131, 132, 133, 
134, 135, 136, 137, 138, 139, 141, 142, 143, 144, 145, 146, 147, 148, 149, 
151, 152, 153, 154, 155, 156, 157, 158, 159, 161, 162, 163, 164, 165, 166, 
167, 168, 169, 171, 172, 173, 174, 175, 176, 177, 178, 179, 181, 182, 183, 
184, 185, 186, 187, 188, 189, 191, 192, 193, 194, 195, 196, 197, 198, 199, 
201, 202, 203, 204, 205, 206, 207, 208, 209, 211, 212, 213, 214, 215, 216, 
217, 218, 219, 221, 222, 223, 224, 225, 226, 227, 228, 229, 231, 232, 233, 
234, 235, 236, 237, 238, 239, 241, 242, 243, 244, 245, 246, 247, 248, 249, 
251, 252, 253, 254, 255, 256, 257, 258, 259, 261, 262, 263, 264, 265, 266, 
267, 268, 269, 271, 272, 273, 274, 275, 276, 277, 278, 279, 281, 282, 283, 
284, 285, 286, 287, 288, 289, 291, 292, 293, 294, 295, 296, 297, 298, 301, 
302, 311, 312, 313, 314, 315, 316, 317, 318, 319, 321, 322, 323, 324, 325, 
326, 327, 328, 329, 331, 332, 333, 334, 335, 336, 337, 338, 339, 341, 342, 
343, 344, 345, 346, 347, 348, 349, 351, 352, 353, 354, 355, 356, 357, 358, 
359, 361, 362, 363, 364, 365, 366, 367, 368, 369, 371, 372, 373, 374, 375, 
376, 377, 378, 379, 381, 382, 383, 384, 385, 386, 387, 388, 389, 391, 392, 
393, 394, 395, 396, 397, 398, 399, 411, 412, 413, 414, 415, 416, 417, 418, 
419, 421, 422, 423, 424, 425, 426, 427, 428, 429, 431, 432, 433, 434, 435, 
436, 437, 438, 439, 441, 442, 443, 444, 445, 446, 447, 448, 449, 451, 452,
453, 454, 455, 456, 457, 458, 459, 461, 462, 463, 464, 465, 466, 467, 468,
469, 471, 472, 473, 474, 475, 476, 477, 478, 479, 481, 482, 483, 484, 485, 
486, 487, 488, 489, 491, 492, 493, 494, 495, 496, 497, 498, 499, 501, 502, 
503, 504, 505, 506, 507, 508, 509, 511, 512, 513, 514, 516, 519, 521, 522, 
523, 524, 525, 526, 527, 528, 529, 531, 532, 533, 534, 535, 536, 537, 538, 
539, 541, 542, 543, 544, 545, 546, 547, 548, 549, 551, 552, 553, 554, 555, 
556, 557, 558, 559, 561, 562, 563, 564, 565, 566, 567, 568, 569, 571, 572, 
573, 574, 575, 576, 577, 578, 579, 581, 582, 583, 584, 585, 586, 587, 588, 
589, 591, 592, 593, 594, 595, 596, 597, 598, 599, 601, 602, 603, 604, 605, 
606, 607, 608, 609, 611, 612, 613, 614, 615, 616, 617, 618, 619, 621, 622, 
623, 624, 625, 626, 627, 628, 629, 631, 632, 633, 634, 635, 636, 637, 638, 
639, 641, 642, 643, 644, 645, 646, 647, 648, 649, 651, 652, 653, 654, 655, 
656, 657, 658, 659, 661, 662, 663, 664, 665, 666, 667, 668, 669, 671, 672, 
673, 674, 675, 676, 677, 678, 679, 681, 682, 683, 684, 685, 686, 687, 688, 
689, 691, 692, 693, 694, 695, 696, 697, 698, 699, 701, 711, 712, 713, 714,
715, 716, 717, 718, 719, 721, 722, 723, 724, 725, 726, 727, 728, 729, 731,
732, 733, 734, 735, 736, 737, 738, 739, 741, 742, 743, 744, 745, 746, 747,
748, 749, 751, 752, 753, 754, 755, 756, 757, 758, 759, 761, 762, 763, 764,
765, 766, 767, 768, 769, 771, 772, 773, 774, 775, 776, 777, 778, 779, 781,
782, 783, 784, 785, 786, 787, 788, 789, 791, 792, 793, 794, 795, 796, 797,
798, 799, 811, 812, 813, 814, 815, 816, 817, 818, 819, 821, 822, 823, 824,
825, 826, 827, 828, 829, 831, 832, 833, 834, 835, 836, 837, 838, 839, 841,
842, 843, 844, 845, 846, 847, 848, 849, 851, 852, 853, 854, 855, 856, 857,
858, 859, 861, 862, 863, 864, 865, 866, 867, 868, 869, 871, 872, 873, 874,
875, 876, 877, 878, 879, 881, 882, 883, 884, 885, 886, 887, 888, 889, 891,
892, 893, 894, 895, 896, 897, 898, 899, 911, 912, 913, 914, 915, 916, 917,
918, 919, 921, 922, 923, 924, 925, 926, 927, 928, 929, 931, 932, 933, 934,
935, 936, 937, 938, 939, 941, 942, 943, 944, 945, 946, 947, 948, 949, 951,
952, 953, 954, 955, 956, 957, 958, 959, 961, 962, 963, 964, 965, 966, 967,
968, 969, 971, 972, 973, 974, 975, 976, 977, 978, 979, 981, 982, 983, 984,
985, 986, 987, 988, 989, 991, 992, 993, 994, 995, 996, 997, 998 );

DepName : array [0 .. 762] of String = (
'Dolnośląski Urząd Skarbowy we Wrocławiu',
'Kujawsko-Pomorski Urząd Skarbowy w Bydgoszczy',
'Lubelski Urząd Skarbowy w Lublinie',
'Lubuski Urząd Skarbowy w Zielonej Górze',
'Łódzki Urząd Skarbowy w Łodzi',
'Małopolski Urząd Skarbowy w Krakowie',
'Pierwszy Mazowiecki Urząd Skarbowy w Warszawie',
'Drugi Mazowiecki Urząd Skarbowy w Warszawie',
'Trzeci Mazowiecki Urząd Skarbowy w Radomiu',
'Urząd Skarbowy Warszawa-Mokotów',
'Urząd Skarbowy Warszawa-Bemowo',
'Urząd Skarbowy Warszawa-Praga',
'Urząd Skarbowy Warszawa-Targówek',
'Pierwszy Urząd Skarbowy Warszawa-Śródmieście',
'Drugi Urząd Skarbowy Warszawa-Śródmieście',
'Urząd Skarbowy Warszawa-Wola',
'Urząd Skarbowy Warszawa-Bielany',
'Urząd Skarbowy w Grodzisku Mazowieckim',
'Urząd Skarbowy w Nowym Dworze Mazowieckim',
'Urząd Skarbowy w Otwocku',
'Urząd Skarbowy w Piasecznie',
'Urząd Skarbowy w Pruszkowie',
'Urząd Skarbowy w Wołominie',
'Urząd Skarbowy w Białej Podlaskiej',
'Urząd Skarbowy w Parczewie',
'Urząd Skarbowy w Radzyniu Podlaskim',
'Pierwszy Urząd Skarbowy w Białymstoku',
'Urząd Skarbowy w Bielsku Podlaskim',
'Urząd Skarbowy w Mońkach',
'Urząd Skarbowy w Siemiatyczach',
'Urząd Skarbowy w Sokółce',
'Pierwszy Urząd Skarbowy w Bielsku-Białej',
'Urząd Skarbowy w Cieszynie',
'Urząd Skarbowy w Oświęcimiu',
'Urząd Skarbowy w Suchej Beskidzkiej',
'Urząd Skarbowy w Wadowicach',
'Urząd Skarbowy w Żywcu',
'Pierwszy Urząd Skarbowy w Bydgoszczy',
'Urząd Skarbowy w Chojnicach',
'Urząd Skarbowy w Inowrocławiu',
'Urząd Skarbowy w Mogilnie',
'Urząd Skarbowy w Nakle nad Notecią ',
'Urząd Skarbowy w Świeciu',
'Urząd Skarbowy w Tucholi',
'Urząd Skarbowy w Żninie',
'Urząd Skarbowy w Chełmie',
'Urząd Skarbowy w Krasnymstawie',
'Urząd Skarbowy we Włodawie',
'Urząd Skarbowy w Ciechanowie',
'Urząd Skarbowy w Działdowie',
'Urząd Skarbowy w Mławie',
'Urząd Skarbowy w Płońsku',
'Urząd Skarbowy w Pułtusku',
'Pierwszy Urząd Skarbowy w Częstochowie',
'Urząd Skarbowy w Kłobucku',
'Urząd Skarbowy w Lublińcu',
'Urząd Skarbowy w Myszkowie',
'Urząd Skarbowy w Oleśnie',
'Urząd Skarbowy w Braniewie',
'Urząd Skarbowy w Elblągu',
'Urząd Skarbowy w Kwidzynie',
'Urząd Skarbowy w Malborku',
'Pierwszy Urząd Skarbowy w Gdańsku',
'Drugi Urząd Skarbowy w Gdańsku',
'Pierwszy Urząd Skarbowy w Gdyni',
'Urząd Skarbowy w Kartuzach',
'Urząd Skarbowy w Kościerzynie',
'Urząd Skarbowy w Pucku',
'Urząd Skarbowy w Sopocie',
'Urząd Skarbowy w Starogardzie Gdańskim',
'Urząd Skarbowy w Tczewie',
'Urząd Skarbowy w Wejherowie',
'Urząd Skarbowy w Choszcznie',
'Urząd Skarbowy w Gorzowie Wielkopolskim',
'Urząd Skarbowy w Myśliborzu',
'Urząd Skarbowy w Międzychodzie',
'Urząd Skarbowy w Międzyrzeczu',
'Urząd Skarbowy w Słubicach',
'Urząd Skarbowy w Bolesławcu',
'Urząd Skarbowy w Jeleniej Górze',
'Urząd Skarbowy w Kamiennej Górze',
'Urząd Skarbowy w Lubaniu',
'Urząd Skarbowy w Lwówku Śląskim',
'Urząd Skarbowy w Zgorzelcu',
'Urząd Skarbowy w Jarocinie',
'Pierwszy Urząd Skarbowy w Kaliszu',
'Urząd Skarbowy w Kępnie',
'Urząd Skarbowy w Krotoszynie',
'Urząd Skarbowy w Ostrowie Wielkopolskim',
'Urząd Skarbowy w Będzinie',
'Opolski Urząd Skarbowy w Opolu',
'Podkarpacki Urząd Skarbowy w Rzeszowie',
'Podlaski Urząd Skarbowy w Białymstoku',
'Pomorski Urząd Skarbowy w Gdańsku',
'Pierwszy Śląski Urząd Skarbowy w Sosnowcu',
'Drugi Śląski Urząd Skarbowy w Bielsku-Białej',
'Świętokrzyski Urząd Skarbowy w Kielcach',
'Warmińsko-Mazurski Urząd Skarbowy w Olsztynie',
'Pierwszy Wielkopolski Urząd Skarbowy w Poznaniu',
'Urząd Skarbowy w Bytomiu',
'Urząd Skarbowy w Chorzowie',
'Urząd Skarbowy w Chrzanowie',
'Urząd Skarbowy w Czechowicach-Dziedzicach',
'Urząd Skarbowy w Dąbrowie Górniczej',
'Pierwszy Urząd Skarbowy w Gliwicach',
'Urząd Skarbowy w Jastrzębiu-Zdroju',
'Urząd Skarbowy w Jaworznie',
'Pierwszy Urząd Skarbowy w Katowicach',
'Urząd Skarbowy w Mikołowie',
'Urząd Skarbowy w Mysłowicach',
'Urząd Skarbowy w Olkuszu',
'Urząd Skarbowy w Pszczynie',
'Urząd Skarbowy w Raciborzu',
'Urząd Skarbowy w Rudzie Śląskiej',
'Urząd Skarbowy w Rybniku',
'Urząd Skarbowy w Siemianowicach Śląskich',
'Urząd Skarbowy w Sosnowcu',
'Urząd Skarbowy w Tarnowskich Górach',
'Urząd Skarbowy w Tychach',
'Urząd Skarbowy w Wodzisławiu Śląskim',
'Urząd Skarbowy w Zabrzu',
'Urząd Skarbowy w Zawierciu',
'Urząd Skarbowy w Żorach',
'Urząd Skarbowy w Busku-Zdroju',
'Urząd Skarbowy w Jędrzejowie',
'Pierwszy Urząd Skarbowy w Kielcach',
'Urząd Skarbowy w Końskich',
'Urząd Skarbowy w Miechowie',
'Urząd Skarbowy w Ostrowcu Świętokrzyskim',
'Urząd Skarbowy w Pińczowie',
'Urząd Skarbowy w Starachowicach',
'Urząd Skarbowy w Skarżysku-Kamiennej',
'Urząd Skarbowy w Kole',
'Urząd Skarbowy w Koninie',
'Urząd Skarbowy w Słupcy',
'Urząd Skarbowy w Turku',
'Urząd Skarbowy w Białogardzie',
'Urząd Skarbowy w Drawsku Pomorskim',
'Urząd Skarbowy w Kołobrzegu',
'Pierwszy Urząd Skarbowy w Koszalinie',
'Urząd Skarbowy w Szczecinku',
'Urząd Skarbowy Kraków-Krowodrza',
'Urząd Skarbowy Kraków-Nowa Huta',
'Urząd Skarbowy Kraków-Podgórze',
'Urząd Skarbowy w Kraków-Śródmieście',
'Urząd Skarbowy w Kraków-Stare Miasto',
'Urząd Skarbowy w Myślenicach',
'Urząd Skarbowy w Proszowicach',
'Urząd Skarbowy w Wieliczce',
'Urząd Skarbowy w Brzozowie',
'Urząd Skarbowy w Jaśle',
'Urząd Skarbowy w Krośnie',
'Urząd Skarbowy w Lesku',
'Urząd Skarbowy w Sanoku',
'Urząd Skarbowy w Ustrzykach Dolnych',
'Urząd Skarbowy w Głogowie',
'Urząd Skarbowy w Jaworze',
'Urząd Skarbowy w Legnicy',
'Urząd Skarbowy w Lubinie',
'Urząd Skarbowy w Złotoryi',
'Urząd Skarbowy w Gostyniu',
'Urząd Skarbowy w Kościanie',
'Urząd Skarbowy w Lesznie',
'Urząd Skarbowy w Rawiczu',
'Urząd Skarbowy w Kraśniku',
'Urząd Skarbowy w Lubartowie',
'Pierwszy Urząd Skarbowy w Lublinie',
'Drugi Urząd Skarbowy w Lublinie',
'Urząd Skarbowy w Opolu Lubelskim',
'Urząd Skarbowy w Puławach',
'Urząd Skarbowy w Grajewie',
'Urząd Skarbowy w Kolnie',
'Urząd Skarbowy w Łomży',
'Urząd Skarbowy w Wysokiem Mazowieckim',
'Urząd Skarbowy w Zambrowie',
'Urząd Skarbowy w Głownie',
'Pierwszy Urząd Skarbowy Łódź-Bałuty',
'Pierwszy Urząd Skarbowy Łódź-Górna',
'Urząd Skarbowy Łódź-Polesie',
'Drugi Wielkopolski Urząd Skarbowy w Kaliszu',
'Zachodniopomorski Urząd Skarbowy w Szczecinie',
'Urząd Skarbowy Łódź-Śródmieście',
'Urząd Skarbowy Łódź-Widzew',
'Urząd Skarbowy w Pabianicach',
'Urząd Skarbowy w Zgierzu',
'Urząd Skarbowy w Gorlicach',
'Urząd Skarbowy w Limanowej',
'Urząd Skarbowy w Nowym Sączu',
'Urząd Skarbowy w Nowym Targu',
'Urząd Skarbowy w Zakopanem',
'Urząd Skarbowy w Bartoszycach',
'Urząd Skarbowy w Iławie',
'Urząd Skarbowy w Kętrzynie',
'Urząd Skarbowy w Olsztynie',
'Urząd Skarbowy w Ostródzie',
'Urząd Skarbowy w Szczytnie',
'Urząd Skarbowy w Brzegu',
'Urząd Skarbowy w Głubczycach',
'Urząd Skarbowy w Kędzierzynie-Koźlu',
'Urząd Skarbowy w Kluczborku',
'Urząd Skarbowy w Namysłowie',
'Urząd Skarbowy w Nysie',
'Pierwszy Urząd Skarbowy w Opolu',
'Urząd Skarbowy w Prudniku',
'Urząd Skarbowy w Strzelcach Opolskich',
'Urząd Skarbowy w Makowie Mazowieckim',
'Urząd Skarbowy w Ostrołęce',
'Urząd Skarbowy w Ostrowi Mazowieckiej',
'Urząd Skarbowy w Przasnyszu',
'Urząd Skarbowy w Wyszkowie',
'Urząd Skarbowy w Czarnkowie',
'Urząd Skarbowy w Pile',
'Urząd Skarbowy w Wałczu',
'Urząd Skarbowy w Wągrowcu',
'Urząd Skarbowy w Złotowie',
'Urząd Skarbowy w Bełchatowie',
'Urząd Skarbowy w Opocznie',
'Urząd Skarbowy w Piotrkowie Trybunalskim',
'Urząd Skarbowy w Radomsku',
'Urząd Skarbowy w Tomaszowie Mazowieckim',
'Urząd Skarbowy w Kutnie',
'Urząd Skarbowy w Płocku',
'Urząd Skarbowy w Sierpcu',
'Urząd Skarbowy w Gnieźnie',
'Urząd Skarbowy w Nowym Tomyślu',
'Urząd Skarbowy Poznań-Grunwald',
'Urząd Skarbowy Poznań-Jeżyce',
'Urząd Skarbowy Poznań-Nowe Miasto',
'Pierwszy Urząd Skarbowy Poznań ',
'Urząd Skarbowy Poznań-Śródmieście',
'Urząd Skarbowy Poznań-Wilda',
'Urząd Skarbowy w Szamotułach',
'Urząd Skarbowy w Śremie',
'Urząd Skarbowy w Środzie Wielkopolskiej',
'Urząd Skarbowy we Wrześni',
'Urząd Skarbowy w Jarosławiu',
'Urząd Skarbowy w Lubaczowie',
'Urząd Skarbowy w Przemyślu',
'Urząd Skarbowy w Przeworsku',
'Urząd Skarbowy w Białobrzegach',
'Urząd Skarbowy w Grójcu',
'Urząd Skarbowy w Kozienicach',
'Pierwszy Urząd Skarbowy w Radomiu',
'Urząd Skarbowy w Szydłowcu',
'Urząd Skarbowy w Zwoleniu',
'Urząd Skarbowy w Kolbuszowej',
'Urząd Skarbowy w Leżajsku',
'Urząd Skarbowy w Łańcucie',
'Urząd Skarbowy w Mielcu',
'Urząd Skarbowy w Ropczycach',
'Urząd Skarbowy w Rzeszowie',
'Urząd Skarbowy w Strzyżowie',
'Urząd Skarbowy w Garwolinie',
'Urząd Skarbowy w Łukowie',
'Urząd Skarbowy w Mińsku Mazowieckim',
'Urząd Skarbowy w Siedlcach',
'Urząd Skarbowy w Sokołowie Podlaskim',
'Urząd Skarbowy w Węgrowie',
'Urząd Skarbowy w Łasku',
'Urząd Skarbowy w Poddębicach',
'Urząd Skarbowy w Sieradzu',
'Urząd Skarbowy w Wieluniu',
'Urząd Skarbowy w Zduńskiej Woli',
'Urząd Skarbowy w Brzezinach',
'Urząd Skarbowy w Łowiczu',
'Urząd Skarbowy w Rawie Mazowieckiej',
'Urząd Skarbowy w Skierniewicach',
'Urząd Skarbowy w Sochaczewie',
'Urząd Skarbowy w Żyrardowie',
'Urząd Skarbowy w Bytowie',
'Urząd Skarbowy w Człuchowie',
'Urząd Skarbowy w Lęborku',
'Urząd Skarbowy w Słupsku',
'Urząd Skarbowy w Augustowie',
'Urząd Skarbowy w Ełku',
'Urząd Skarbowy w Giżycku',
'Urząd Skarbowy w Olecku',
'Urząd Skarbowy w Piszu',
'Urząd Skarbowy w Suwałkach',
'Urząd Skarbowy w Goleniowie',
'Urząd Skarbowy w Gryficach',
'Urząd Skarbowy w Gryfinie',
'Urząd Skarbowy w Pyrzycach',
'Urząd Skarbowy w Stargardzie Szczecińskim',
'Pierwszy Urząd Skarbowy w Szczecinie',
'Drugi Urząd Skarbowy w Szczecinie',
'Urząd Skarbowy w Świnoujściu',
'Urząd Skarbowy w Janowie Lubelskim',
'Urząd Skarbowy w Opatowie',
'Urząd Skarbowy w Sandomierzu',
'Urząd Skarbowy w Stalowej Woli',
'Urząd Skarbowy w Staszowie',
'Urząd Skarbowy w Tarnobrzegu',
'Urząd Skarbowy w Bochni',
'Urząd Skarbowy w Brzesku',
'Urząd Skarbowy w Dąbrowie Tarnowskiej',
'Urząd Skarbowy w Dębicy',
'Pierwszy Urząd Skarbowy w Tarnowie',
'Urząd Skarbowy w Brodnicy',
'Urząd Skarbowy w Chełmnie',
'Urząd Skarbowy w Grudziądzu',
'Urząd Skarbowy w Nowym Mieście Lubawskim',
'Drugi Urząd Skarbowy w Toruniu',
'Urząd Skarbowy w Wąbrzeźnie',
'Urząd Skarbowy w Bystrzycy Kłodzkiej',
'Urząd Skarbowy w Dzierżoniowie',
'Urząd Skarbowy w Kłodzku',
'Urząd Skarbowy w Nowej Rudzie',
'Urząd Skarbowy w Świdnicy',
'Urząd Skarbowy w Wałbrzychu',
'Urząd Skarbowy w Ząbkowicach Śląskich',
'Urząd Skarbowy w Aleksandrowie Kujawskim',
'Urząd Skarbowy w Lipnie',
'Urząd Skarbowy w Radziejowie',
'Urząd Skarbowy w Rypinie',
'Urząd Skarbowy we Włocławku',
'Urząd Skarbowy Wrocław-Fabryczna',
'Urząd Skarbowy Wrocław-Krzyki',
'Urząd Skarbowy Wrocław-Psie Pole',
'Urząd Skarbowy Wrocław-Stare Miasto',
'Pierwszy Urząd Skarbowy we Wrocławiu',
'Drugi Urząd Skarbowy Wrocław-Śródmieście',
'Urząd Skarbowy w Miliczu',
'Urząd Skarbowy w Oleśnicy',
'Urząd Skarbowy w Oławie',
'Urząd Skarbowy w Strzelnie',
'Urząd Skarbowy w Środzie Śląskiej',
'Urząd Skarbowy w Trzebnicy',
'Urząd Skarbowy w Biłgoraju',
'Urząd Skarbowy w Hrubieszowie',
'Urząd Skarbowy w Tomaszowie Lubelskim',
'Urząd Skarbowy w Zamościu',
'Urząd Skarbowy w Krośnie Odrzańskim',
'Urząd Skarbowy w Nowej Soli',
'Urząd Skarbowy w Świebodzinie',
'Urząd Skarbowy w Wolsztynie',
'Pierwszy Urząd Skarbowy w Zielonej Górze',
'Urząd Skarbowy w Żaganiu',
'Urząd Skarbowy w Żarach',
'Urząd Skarbowy w Łosicach',
'Urząd Skarbowy w Łosicach',
'Urząd Skarbowy w Piekarach Śląskich',
'Drugi Urząd Skarbowy w Koszalinie',
'Urząd Skarbowy W Górze',
'Urząd Skarbowy W Polkowicach',
'Urząd Skarbowy W Golubiu-Dobrzyniu',
'Urząd Skarbowy W Sepólnie Krajeńskim',
'Urząd Skarbowy W Łęcznej',
'Urząd Skarbowy W Rykach',
'Urząd Skarbowy W Łęczycy',
'Urząd Skarbowy W Pajęcznie',
'Urząd Skarbowy W Lipsku',
'Urząd Skarbowy w Żurominie',
'Urząd Skarbowy w Żurominie',
'Urząd Skarbowy w Lesznie',
'Urząd Skarbowy w Ostrzeszowie',
'Urząd Skarbowy w Ostrzeszowie',
'Urząd Skarbowy w Legionowie',
'Urząd Skarbowy Warszawa-Mokotów',
'Urząd Skarbowy Warszawa-Bemowo',
'Urząd Skarbowy Warszawa-Praga',
'Urząd Skarbowy Warszawa-Targówek',
'Pierwszy Urząd Skarbowy Warszawa-Śródmieście',
'Drugi Urząd Skarbowy Warszawa-Śródmieście',
'Urząd Skarbowy Warszawa-Wola',
'Urząd Skarbowy Warszawa-Bielany',
'Urząd Skarbowy w Grodzisku Mazowieckim',
'Urząd Skarbowy w Nowym Dworze Mazowieckim',
'Urząd Skarbowy w Otwocku',
'Urząd Skarbowy w Piasecznie',
'Urząd Skarbowy w Pruszkowie',
'Urząd Skarbowy w Wołominie',
'Urząd Skarbowy w Legionowie',
'Urząd Skarbowy w Białej Podlaskiej',
'Urząd Skarbowy w Radzyniu Podlaskim',
'Urząd Skarbowy w Parczewie',
'Filia US w Białej Podlaskiej/Łosice',
'Pierwszy Urząd Skarbowy w Białymstoku',
'Urząd Skarbowy w Bielsku Podlaskim',
'Urząd Skarbowy w Siemiatyczach',
'Urząd Skarbowy w Sokółce',
'Urząd Skarbowy w Mońkach',
'Pierwszy Urząd Skarbowy w Bielsku-Białej',
'Urząd Skarbowy w Cieszynie',
'Urząd Skarbowy w Oświęcimiu',
'Urząd Skarbowy w Wadowicach',
'Urząd Skarbowy w Suchej Beskidzkiej',
'Urząd Skarbowy w Żywcu',
'Pierwszy Urząd Skarbowy w Bydgoszczy',
'Urząd Skarbowy w Chojnicach',
'Urząd Skarbowy w Inowrocławiu',
'Urząd Skarbowy w Mogilnie',
'Urząd Skarbowy w Nakle nad Notecią ',
'Urząd Skarbowy w Świeciu',
'Urząd Skarbowy w Tucholi',
'Urząd Skarbowy w Żninie',
'Urząd Skarbowy w Chełmie',
'Urząd Skarbowy w Krasnymstawie',
'Urząd Skarbowy we Włodawie',
'Urząd Skarbowy w Ciechanowie',
'Urząd Skarbowy w Płońsku',
'Urząd Skarbowy w Pułtusku',
'Urząd Skarbowy w Mławie',
'Urząd Skarbowy w Działdowie',
'Filia US w Mławie/Żuromin',
'Pierwszy Urząd Skarbowy w Częstochowie',
'Urząd Skarbowy w Kłobucku',
'Urząd Skarbowy w Lublińcu',
'Urząd Skarbowy w Oleśnie',
'Urząd Skarbowy w Myszkowie',
'Urząd Skarbowy w Elblągu',
'Urząd Skarbowy w Malborku',
'Urząd Skarbowy w Kwidzynie',
'Urząd Skarbowy w Braniewie',
'Pierwszy Urząd Skarbowy w Gdańsku',
'Drugi Urząd Skarbowy w Gdańsku',
'Urząd Skarbowy w Sopocie',
'Pierwszy Urząd Skarbowy w Gdyni',
'Urząd Skarbowy w Pucku',
'Urząd Skarbowy w Wejherowie',
'Urząd Skarbowy w Kartuzach',
'Urząd Skarbowy w Kościerzynie',
'Urząd Skarbowy w Starogardzie Gdańskim',
'Urząd Skarbowy w Tczewie',
'Urząd Skarbowy w Choszcznie',
'Urząd Skarbowy w Międzychodzie',
'Urząd Skarbowy w Międzyrzeczu',
'Urząd Skarbowy w Myśliborzu',
'Urząd Skarbowy w Słubicach',
'Urząd Skarbowy w Gorzowie Wielkopolskim',
'Urząd Skarbowy w Przysusze',
'Urząd Skarbowy w Nisku',
'Urząd Skarbowy w Hajnówce',
'Urząd Skarbowy w Pruszczu Gdańskim',
'Urząd Skarbowy w Kazimierzy Wielkiej',
'Urząd Skarbowy w Obornikach',
'Urząd Skarbowy w Chodzieży',
'Urząd Skarbowy w Pleszewie',
'Urząd Skarbowy we Włoszczowie',
'Urząd Skarbowy w Jeleniej-Górze',
'Urząd Skarbowy w Bolesławcu',
'Urząd Skarbowy w Lubaniu',
'Urząd Skarbowy w Kamiennej-Górze',
'Urząd Skarbowy w Zgorzelcu',
'Urząd Skarbowy w Lwówku ŚLąskim',
'Urząd Skarbowy w Jarocinie',
'Pierwszy Urząd Skarbowy w Kaliszu',
'Urząd Skarbowy w Kępnie',
'Urząd Skarbowy w Krotoszynie',
'Urząd Skarbowy w Ostrowie Wielkopolskim',
'Urząd Skarbowy w Piekarach Śląskich',
'Drugi Urząd Skarbowy w Koszalinie',
'Urząd Skarbowy w Będzinie',
'Urząd Skarbowy w Bytomiu',
'Urząd Skarbowy w Chorzowie',
'Urząd Skarbowy w Chrzanowie',
'Urząd Skarbowy w Dąbrowie Górniczej',
'Pierwszy Urząd Skarbowy w Gliwicach',
'Urząd Skarbowy w Jaworznie',
'Urząd Skarbowy w Jastrzębiu-Zdroju',
'Pierwszy Urząd Skarbowy w Katowicach',
'Urząd Skarbowy w Mikołowie',
'Urząd Skarbowy w Mysłowicach',
'Urząd Skarbowy w Olkuszu',
'Urząd Skarbowy w Pszczynie',
'Urząd Skarbowy w Raciborzu',
'Urząd Skarbowy w Rudzie Śląskiej',
'Urząd Skarbowy w Rybniku',
'Urząd Skarbowy w Siemianowicach Śląskich',
'Urząd Skarbowy w Sosnowcu',
'Urząd Skarbowy w Tarnowskich Górach',
'Urząd Skarbowy w Tychach',
'Urząd Skarbowy w Wodzisławiu Śląskim',
'Urząd Skarbowy w Zabrzu',
'Urząd Skarbowy w Zawierciu',
'Urząd Skarbowy w Żorach',
'Urząd Skarbowy w Czechowicach Dziedzicach',
'Urząd Skarbowy Tarnowskie Góry filia Piekary Śląskie',
'Filia US w Będzinie/Czeladź ',
'Urząd Skarbowy w Busku-Zdroju',
'Urząd Skarbowy w Jędrzejowie',
'Pierwszy Urząd Skarbowy w Kielcach',
'Urząd Skarbowy w Końskich',
'Urząd Skarbowy w Miechowie',
'Urząd Skarbowy w Ostrowcu Świętokrzyskim',
'Urząd Skarbowy w Pińczowie',
'Urząd Skarbowy w Skarżysku Kamiennej',
'Urząd Skarbowy w Starachowicach',
'Urząd Skarbowy w Koninie',
'Urząd Skarbowy w Kole',
'Urząd Skarbowy w Słupcy',
'Urząd Skarbowy w Turku',
'Pierwszy Urząd Skarbowy w Koszalinie',
'Urząd Skarbowy w Kołobrzegu',
'Urząd Skarbowy w Białogardzie',
'Urząd Skarbowy w Szczecinku',
'Urząd Skarbowy w Drawsku Pomorskim',
'Urząd Skarbowy Kraków-Śródmieście',
'Urząd Skarbowy Kraków-Stare Miasto',
'Urząd Skarbowy Kraków-Krowodrza',
'Urząd Skarbowy Kraków-Nowa Huta',
'Urząd Skarbowy Kraków-Podgórze',
'Urząd Skarbowy w Myślenicach',
'Urząd Skarbowy w Proszowicach',
'Urząd Skarbowy w Wieliczce',
'Urząd Skarbowy w Krośnie',
'Urząd Skarbowy w Jaśle',
'Urząd Skarbowy w Brzozowie',
'Urząd Skarbowy w Sanoku',
'Urząd Skarbowy w Lesku',
'Urząd Skarbowy w Ustrzykach Dolnych',
'Urząd Skarbowy w Legnicy',
'Urząd Skarbowy w Lubinie',
'Urząd Skarbowy w Głogowie',
'Urząd Skarbowy w Złotoryi',
'Urząd Skarbowy w Jaworze',
'Urząd Skarbowy w Gostyniu',
'Urząd Skarbowy w Lesznie',
'Urząd Skarbowy w Kościanie',
'Urząd Skarbowy w Rawiczu',
'Trzeci Urząd Skarbowy  Warszawa-Śródmieście',
'Urząd Skarbowy w Lesznie',
'Pierwszy Urząd Skarbowy w Lublinie',
'Drugi Urząd Skarbowy w Lublinie',
'Urząd Skarbowy w Lubartowie',
'Urząd Skarbowy w Kraśniku',
'Urząd Skarbowy w Puławach',
'Urząd Skarbowy w Opolu Lubelskim',
'Urząd Skarbowy w Łomży',
'Urząd Skarbowy w Grajewie',
'Urząd Skarbowy w Kolnie',
'Urząd Skarbowy w Wysokiem Mazowieckiem',
'Urząd Skarbowy w Zambrowie',
'Pierwszy Urząd Skarbowy Łódź-Śródmieście',
'Urząd Skarbowy Łódź-Śródmieście',
'Pierwszy Urząd Skarbowy Łódź-Bałuty',
'Urząd Skarbowy Łódź-Polesie',
'Urząd Skarbowy Łódź-Widzew',
'Pierwszy Urząd Skarbowy Łódź-Górna',
'Urząd Skarbowy w Pabianicach',
'Urząd Skarbowy w Zgierzu',
'Urząd Skarbowy w Głownie',
'Urząd Skarbowy w Nowym Sączu',
'Urząd Skarbowy w Nowym Targu',
'Urząd Skarbowy w Zakopanem',
'Urząd Skarbowy w Limanowej',
'Urząd Skarbowy w Gorlicach',
'Urząd Skarbowy w Olsztynie',
'Urząd Skarbowy w Ostródzie',
'Urząd Skarbowy w Kętrzynie',
'Urząd Skarbowy w Bartoszycach',
'Urząd Skarbowy w Iławie',
'Urząd Skarbowy w Szczytnie',
'Filia US w Szczytnie/Nidzica',
'Urząd Skarbowy w Brzegu',
'Urząd Skarbowy w Głubczycach',
'Urząd Skarbowy w Kędzierzynie-Koźlu',
'Urząd Skarbowy w Kluczborku',
'Urząd Skarbowy w Namysłowie',
'Urząd Skarbowy w Nysie',
'Pierwszy Urząd Skarbowy w Opolu',
'Urząd Skarbowy w Prudniku',
'Urząd Skarbowy w Strzelcach Opolskich',
'Urząd Skarbowy w Makowie Mazowieckim',
'Urząd Skarbowy w Ostrołęce',
'Urząd Skarbowy w Ostrowi Mazowieckiej',
'Urząd Skarbowy w Przasnyszu',
'Urząd Skarbowy w Wyszkowie',
'Urząd Skarbowy w Czarnkowie',
'Urząd Skarbowy w Pile',
'Urząd Skarbowy w Wałczu',
'Urząd Skarbowy w Wągrowcu',
'Urząd Skarbowy w Złotowie',
'Urząd Skarbowy w Opocznie',
'Urząd Skarbowy w Bełchatowie',
'Urząd Skarbowy w Piotrkowie Trybunalskim',
'Urząd Skarbowy w Radomsku',
'Urząd Skarbowy w Tomaszowie Mazowieckim',
'Urząd Skarbowy w Płocku',
'Urząd Skarbowy w Kutnie',
'Urząd Skarbowy w Sierpcu',
'Pierwszy Urząd Skarbowy Poznań ',
'Urząd Skarbowy Poznań-Śródmieście',
'Urząd Skarbowy Poznań-Grunwald',
'Urząd Skarbowy Poznań-Jeżyce',
'Urząd Skarbowy Poznań-Nowe Miasto',
'Urząd Skarbowy Poznań-Wilda',
'Urząd Skarbowy w Gnieźnie',
'Urząd Skarbowy w Śremie',
'Urząd Skarbowy w Środzie Wielkopolskiej',
'Urząd Skarbowy w Szamotułach',
'Urząd Skarbowy w Nowym Tomyślu',
'Urząd Skarbowy we Wrześni',
'Filia US w Nowym Tomyślu/Grodzisk Wlkp.',
'Urząd Skarbowy w Jarosławiu',
'Urząd Skarbowy w Lubaczowie',
'Urząd Skarbowy w Przeworsku',
'Urząd Skarbowy w Przemyślu',
'Pierwszy Urząd Skarbowy w Radomiu',
'Urząd Skarbowy w Grójcu',
'Urząd Skarbowy w Białobrzegach',
'Urząd Skarbowy w Szydłowcu',
'Urząd Skarbowy w Zwoleniu',
'Urząd Skarbowy w Kozienicach',
'Urząd Skarbowy w Rzeszowie',
'Urząd Skarbowy w Kolbuszowej',
'Urząd Skarbowy w Łańcucie',
'Urząd Skarbowy w Leżajsku',
'Urząd Skarbowy w Mielcu',
'Urząd Skarbowy w Ropczycach',
'Urząd Skarbowy w Strzyżowie',
'Urząd Skarbowy w Siedlcach',
'Urząd Skarbowy w Mińsku Mazowieckim',
'Urząd Skarbowy w Sokołowie Podlaskim',
'Urząd Skarbowy w Węgrowie',
'Urząd Skarbowy w Łukowie',
'Urząd Skarbowy w Garwolinie',
'Urząd Skarbowy w Sieradzu',
'Urząd Skarbowy w Poddębicach',
'Urząd Skarbowy w Zduńskiej Woli',
'Urząd Skarbowy w Łasku',
'Urząd Skarbowy w Wieluniu',
'Urząd Skarbowy w Brzezinach',
'Urząd Skarbowy w Łowiczu',
'Urząd Skarbowy w Rawie Mazowieckiej',
'Urząd Skarbowy w Skierniewicach',
'Urząd Skarbowy w Sochaczewie',
'Urząd Skarbowy w Żyrardowie',
'Urząd Skarbowy w Słupsku',
'Urząd Skarbowy w Lęborku',
'Urząd Skarbowy w Bytowie',
'Urząd Skarbowy w Człuchowie',
'Urząd Skarbowy w Suwałkach',
'Urząd Skarbowy w Giżycku',
'Urząd Skarbowy w Augustowie',
'Urząd Skarbowy w Olecku',
'Urząd Skarbowy w Ełku',
'Urząd Skarbowy w Piszu',
'Pierwszy Urząd Skarbowy w Szczecinie',
'Drugi Urząd Skarbowy w Szczecinie',
'Urząd Skarbowy w Pyrzycach',
'Urząd Skarbowy w Starogardzie Szczecińskim',
'Urząd Skarbowy w Świnoujściu',
'Urząd Skarbowy w Goleniowie',
'Urząd Skarbowy w Gryficach',
'Urząd Skarbowy w Gryfinie',
'Filia US w Goleniowie/Nowogard',
'Filia US w Gryficach/Kamień Pom.',
'Urząd Skarbowy w Janowie Lubelskim',
'Urząd Skarbowy w Opatowie',
'Urząd Skarbowy w Sandomierzu',
'Urząd Skarbowy w Stalowej Woli',
'Urząd Skarbowy w Staszowie',
'Urząd Skarbowy w Tarnobrzegu',
'Urząd Skarbowy w Bochni',
'Urząd Skarbowy w Brzesku',
'Urząd Skarbowy w Dąbrowie Tarnowskiej',
'Urząd Skarbowy w Dębicy',
'Pierwszy Urząd Skarbowy w Tarnowie',
'Urząd Skarbowy w Brodnicy',
'Urząd Skarbowy w Chełmnie',
'Urząd Skarbowy w Grudziądzu',
'Urząd Skarbowy w Nowym Mieście Lubawskim',
'Urząd Skarbowy w Wąbrzeźnie',
'Drugi Urząd Skarbowy w Toruniu',
'Urząd Skarbowy w Bystrzycy Kłodzkiej',
'Urząd Skarbowy w Dzierżoniowie',
'Urząd Skarbowy w Kłodzku',
'Urząd Skarbowy w Świdnicy',
'Urząd Skarbowy w Nowej Rudzie',
'Urząd Skarbowy w Wałbrzychu',
'Urząd Skarbowy w Ząbkowicach Śląskich',
'Urząd Skarbowy w Włocławku',
'Urząd Skarbowy w Radziejowie',
'Urząd Skarbowy w Aleksandrowie Kujawskim',
'Urząd Skarbowy w Rypinie',
'Urząd Skarbowy w Lipnie',
'Urząd Skarbowy Wrocław-Fabryczna',
'Urząd Skarbowy Wrocław-Psie Pole',
'Pierwszy Urząd Skarbowy we Wrocławiu',
'Urząd Skarbowy Wrocław-Stare Miasto',
'Drugi Urząd Skarbowy Wrocław-Śródmieście',
'Urząd Skarbowy Wrocław-Krzyki',
'Urząd Skarbowy w Oleśnicy',
'Urząd Skarbowy w Oławie',
'Urząd Skarbowy w Środzie Wielkopolskiej',
'Urząd Skarbowy w Strzelnie',
'Urząd Skarbowy w Trzebnicy',
'Urząd Skarbowy w Miliczu',
'Filia US w Trzebnicy/Wołów',
'Urząd Skarbowy w Biłgoraju',
'Urząd Skarbowy w Hrubieszowie',
'Urząd Skarbowy w Tomaszowie Lubelskim',
'Urząd Skarbowy w Zamościu',
'Urząd Skarbowy w Wolsztynie',
'Urząd Skarbowy w Żaganiu',
'Urząd Skarbowy w Nowej Soli',
'Urząd Skarbowy w Krośnie Odrzańskim',
'Urząd Skarbowy w Świebodzinie',
'Urząd Skarbowy w Żarach',
'Pierwszy Urząd Skarbowy w Zielonej Górze',
'Urząd Skarbowy Warszawa-Ursynów',
'Urząd Skarbowy Warszawa-Wawer',
'Drugi Urząd Skarbowy w Bydgoszczy',
'Drugi Urząd Skarbowy w Katowicach',
'Trzeci Urząd Skarbowy w Szczecinie',
'Pierwszy Urząd Skarbowy w Toruniu',
'Drugi Urząd Skarbowy w Bielsku-Białej',
'Drugi Urząd Skarbowy w Bielsku-Białej',
'Drugi Urząd Skarbowy w Częstochowie',
'Trzeci Urząd Skarbowy w Gdańsku',
'Drugi Urząd Skarbowy w Gdyni',
'Drugi Urząd Skarbowy w Kielcach',
'Urząd Skarbowy Kraków-Dębniki',
'Urząd Skarbowy Kraków-Prądnik',
'Trzeci Urząd Skarbowy w Lublinie',
'Drugi Urząd Skarbowy Łódź-Bałuty',
'Drugi Urząd Skarbowy w Radomiu',
'Drugi Urząd Skarbowy w Częstochowie',
'Urząd Skarbowy Warszawa-Ursynów',
'Urząd Skarbowy Warszawa-Wawer',
'Drugi Urząd Skarbowy w Bydgoszczy',
'Drugi Urząd Skarbowy w Katowicach',
'Trzeci Urząd Skarbowy w Szczecinie',
'Pierwszy Urząd Skarbowy w Toruniu',
'Trzeci Urząd Skarbowy w Gdańsku',
'Drugi Urząd Skarbowy w Gdyni',
'Drugi Urząd Skarbowy w Kielcach',
'Urząd Skarbowy Kraków-Dębniki',
'Urząd Skarbowy Kraków-Prądnik',
'Trzeci Urząd Skarbowy w Lublinie',
'Drugi Urząd Skarbowy Łódź-Bałuty',
'Drugi Urząd Skarbowy w Radomiu',
'Drugi Urząd Skarbowy w Białymstoku',
'Trzeci Urząd Skarbowy w Bydgoszczy',
'Drugi Urząd Skarbowy w Kaliszu',
'Drugi Urząd Skarbowy w Gliwicach',
'Urząd Skarbowy w Gostyninie',
'Urząd Skarbowy Poznań-Winogrady',
'Drugi Urząd Skarbowy w Zielonej-Górze',
'Drugi Urząd Skarbowy w Białymstoku',
'Trzeci Urząd Skarbowy w Bydgoszczy',
'Drugi Urząd Skarbowy w Bydgoszczy',
'Drugi Urząd Skarbowy w Gliwicach',
'Urząd Skarbowy w Gostyninie',
'Urząd Skarbowy Poznań-Winogrady',
'Drugi Urząd Skarbowy w Zielonej Górze',
'Drugi Urząd Skarbowy Łódź-Górna',
'Drugi Urząd Skarbowy Łódź-Górna',
'Urząd Skarbowy w Nidzicy',
'Urząd Skarbowy w Nidzicy',
'Urząd Skarbowy w Kamieniu Pomorskim',
'Urząd Skarbowy w Kamieniu Pomorskim',
'Urząd Skarbowy w Wołowie',
'Urząd Skarbowy w Wołowie',
'Drugi Urząd Skarbowy w Opolu',
'Drugi Urząd Skarbowy w Opolu',
'Drugi Urząd Skarbowy w Tarnowie',
'Drugi Urząd Skarbowy w Tarnowie',
'Urząd Skarbowy w Grodzisku Wielkopolskim',
'Urząd Skarbowy w Grodzisku Wielkopolskim',
'Urząd Skarbowy Wieluń lokalizacja w Wieruszowie',
'Urząd Skarbowy Wieluń lokalizacja w Wieruszowie');

function checkSum(): boolean;
var
        sum: Integer;
begin
	sum := 6 * NIP[0] +
	      5 * NIP[1] +
  	      7 * NIP[2] +
	      2 * NIP[3] +
	      3 * NIP[4] +
	      4 * NIP[5] +
	      5 * NIP[6] +
	      6 * NIP[7] +
	      7 * NIP[8];
       	sum := sum mod 11;

	if (NIP[9] = sum) then
		result := true
	else
		result := false;
end;

function getDep(): String;
var
        i : Integer;
	number : Integer;
begin
	result := 'unknown';
	number := 100 * NIP[0];
	number := number + 10 * NIP[1];
	number := number + NIP[2];
	for i:=Low(DepNo) to High(DepNo) do
		if (DepNo[i] = number) then
                   begin
			result := DepName[i];
			break;
                   end;
end;

procedure NIPValidator(NIPNumber: String);
var
        i : integer;
begin

	if (length(NIPNumber) <> 10) then
		valid := false
	else
           begin
		for i:=0 to 9 do
			NIP[i] := strToInt(NIPNumber[i+1]);

		if (checkSum()) then
			valid := true
		else
			valid := false;
           end;
end;


begin
        writeln('Podaj numer NIP (bez spacji i myslinikow)');
        readln(NIPstr);

        NIPValidator(NIPstr);


        if valid then
           begin
        	writeln('Numer NIP jest prawidłowy');
        	writeln('Został wydany przez ' + getDep());

           end
        else
           begin
        	writeln('Numer NIP jest nieprawidłowy');
           end;

end.
Komentarze
photo
-1 # Romek 2011-08-01 13:39
Listing algorytmu by się skrócił gdyby zamiast dwóch wektorów dać macierz o dwóch kolumnach.
Rozpisywanie instrukcji if na cztery wiersze to marnotrawstwo.
if (NIP[9] = sum) then
result := true
else
result := false;

można zapisać całkiem krótko:
result := (NIP[9]=sum);
Odpowiedz | Odpowiedz z cytatem | Cytować
photo
0 # nb 2015-11-10 10:24
Nie ma znaczenia, jak napisać dobrze napisana, ponieważ kompilator optymalizuje takie sytuacje
Odpowiedz | Odpowiedz z cytatem | Cytować
Dodaj komentarz