Много . 4на кружке по программированию учипрограммированию учитель задал васе на обработкупоследовательности чисел по следующему алгоритму.1. дописать зеркальную копию последеалгоритма в конец последовательности2. поместить когiию последовательначало последовательности3. прибавить 1 ко всем числам в пос.шаге.4. в середину полученнойзную копию последовательности чисел полученной на входию последовательности чисел полученной после первого шага втко всем числам в последовательности, полученной на предыдущемпну полученной на предыдущем шаге последовательности коместьпоследовательность чисел, полученную на вход алгоритма.учитель предложил васс один раз ппосnредложил вас один раз применить алгоритм, взяв в качестве входнойледовательности два числа о 1». вася выполнил алгоритм, записывая результатыкаждого шага: 2 1 1 221 122 11232 233223322 321 322 3учитель сказал, что вася получил верный результат и предложил ему выполнить весьалгоритм еще несколько раз, считая, что при каждом новом выполнении алгоритма ему навход подается последовательность, получившаяся в результате предыдущего выполненияалгоритма. то есть, при втором выполнении алгоритма ему на вход буде поданапоследовательность «3 2 2 3 2 1 3 2 2 3», которую вася получил в результате первоговыполнения алгоритма.определите, сколько раз вася повторил алгоритм, если оказалось, что вполучившейся у него последовательности на 15625-й и 15626-й позициях, считая слеванаправо от начала этой последовательности, стоят числа «2» и «», соответственно.в ответе укажите число, соответствующее количеству повторений алгоритма, включая первое применение алгоритма, указанное в примере.​

ответ:а) var x,y: real;б) var a,b,s: real;(a,b - стороны прямоугольника, s - площадь прямоугольника)в) var k:integer;ct,co,s: real;(k - количество тетрадей, ct,co - стоимость 1 тетради и 1 обложки (соответственно), s - стоимости покупки)г) var kt,kk,kr:integer;ct,ck,cr,s: real;(kt,kk,kr - количество тетрадей, карандашей и ручек (соответственно), ct,ck,cr - стоимость 1 тетради, 1 карандаша и 1 ручки (соответственно), s - стоимость покупки)Данные вещественного (real) типа используются значительно чаще целого типа. Они необходимы в тех случаях, когда числовые значения могут содержать дробные части.Данные целочисленного (integer) типа используются для представления целых чисел.

Объяснение:

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

function IsPrime(Self:integer):boolean; extensionmethod;
// является ли число n простым
begin
  if Self<4 then Result:=True
  else begin
    var found:=(Self mod 2=0);
    var p:=3;
    while (not found) and (sqr(p)<=Self) do
      begin found:=(Self mod p=0); p+=2 end;
    Result:=not found
    end
end;

function SumDig(Self:integer):integer; extensionmethod;
// возвращает сумму цифр числа n
begin
  var n:=Self;
  Result:=0;
  while n>0 do begin
    Result+=n mod 10;
    n:=n div 10
    end
end;

begin
  100.To(999).Where(t->t.SumDig.IsPrime).Println
end.

Результат
100 101 102 104 106 110 111 113 115 119 120 122 124 128 131 133 137 139 140 142 146 148 151 155 157 160 164 166 173 175 179 182 184 188 191 193 197 199 200 201 203 205 209 210 212 214 218 221 223 227 229 230 232 236 238 241 245 247 250 254 256 263 265 269 272 274 278 281 283 287 289 290 292 296 298 300 302 304 308 311 313 317 319 320 322 326 328 331 335 337 340 344 346 353 355 359 362 364 368 371 373 377 379 380 382 386 388 391 395 397 401 403 407 409 410 412 416 418 421 425 427 430 434 436 443 445 449 452 454 458 461 463 467 469 470 472 476 478 481 485 487 490 494 496 500 502 506 508 511 515 517 520 524 526 533 535 539 542 544 548 551 553 557 559 560 562 566 568 571 575 577 580 584 586 593 595 599 601 605 607 610 614 616 623 625 629 632 634 638 641 643 647 649 650 652 656 658 661 665 667 670 674 676 683 685 689 692 694 698 700 704 706 713 715 719 722 724 728 731 733 737 739 740 742 746 748 751 755 757 760 764 766 773 775 779 782 784 788 791 793 797 803 805 809 812 814 818 821 823 827 829 830 832 836 838 841 845 847 850 854 856 863 865 869 872 874 878 881 883 887 890 892 896 902 904 908 911 913 917 919 920 922 926 928 931 935 937 940 944 946 953 955 959 962 964 968 971 973 977 980 982 986 991 995