Вычислите n! – произведение всех натуральных чисел от 1 до n(n! = 1∙2∙3∙…∙n входные данные вводится единственное число n – натуральное, не превосходит 12. выходные данные выведите полученное значение n! решить на с++ до сегодня

ответ на рисунке ниже.

// PascalABC.NET 3.3, сборка 1625 от 17.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
  100.To(999).Where(t->t mod 10 in [1,2,3,5,7]).Println
end.

Результат
101 102 103 105 107 111 112 113 115 117 121 122 123 125 127 131 132 133 135 137 141 142 143 145 147 151 152 153 155 157 161 162 163 165 167 171 172 173 175 177 181 182 183 185 187 191 192 193 195 197 201 202 203 205 207 211 212 213 215 217 221 222 223 225 227 231 232 233 235 237 241 242 243 245 247 251 252 253 255 257 261 262 263 265 267 271 272 273 275 277 281 282 283 285 287 291 292 293 295 297 301 302 303 305 307 311 312 313 315 317 321 322 323 325 327 331 332 333 335 337 341 342 343 345 347 351 352 353 355 357 361 362 363 365 367 371 372 373 375 377 381 382 383 385 387 391 392 393 395 397 401 402 403 405 407 411 412 413 415 417 421 422 423 425 427 431 432 433 435 437 441 442 443 445 447 451 452 453 455 457 461 462 463 465 467 471 472 473 475 477 481 482 483 485 487 491 492 493 495 497 501 502 503 505 507 511 512 513 515 517 521 522 523 525 527 531 532 533 535 537 541 542 543 545 547 551 552 553 555 557 561 562 563 565 567 571 572 573 575 577 581 582 583 585 587 591 592 593 595 597 601 602 603 605 607 611 612 613 615 617 621 622 623 625 627 631 632 633 635 637 641 642 643 645 647 651 652 653 655 657 661 662 663 665 667 671 672 673 675 677 681 682 683 685 687 691 692 693 695 697 701 702 703 705 707 711 712 713 715 717 721 722 723 725 727 731 732 733 735 737 741 742 743 745 747 751 752 753 755 757 761 762 763 765 767 771 772 773 775 777 781 782 783 785 787 791 792 793 795 797 801 802 803 805 807 811 812 813 815 817 821 822 823 825 827 831 832 833 835 837 841 842 843 845 847 851 852 853 855 857 861 862 863 865 867 871 872 873 875 877 881 882 883 885 887 891 892 893 895 897 901 902 903 905 907 911 912 913 915 917 921 922 923 925 927 931 932 933 935 937 941 942 943 945 947 951 952 953 955 957 961 962 963 965 967 971 972 973 975 977 981 982 983 985 987 991 992 993 995 997

// PascalABC.NET 3.3, сборка 1555 от 21.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var (p,q):=(1,0);
  for var i:=1 to 1000 do begin
    var (flag,j,r):=(True,2,Round(Sqrt(i)));
    while flag and (j<=r) do
      if i mod j = 0 then flag:=false
      else j+=1;
    if flag then begin
      (p,q):=(q,i);
      if q-p=4 then Write('(',p,',',q,') ')
      end
    end
end.

Результат
(7,11) (13,17) (19,23) (37,41) (43,47) (67,71) (79,83) (97,101) (103,107) (109,113) (127,131) (163,167) (193,197) (223,227) (229,233) (277,281) (307,311) (313,317) (349,353) (379,383) (397,401) (439,443) (457,461) (463,467) (487,491) (499,503) (613,617) (643,647) (673,677) (739,743) (757,761) (769,773) (823,827) (853,857) (859,863) (877,881) (883,887) (907,911) (937,941) (967,971)