2. напечатать все составные числа из диапазона [2, n].

Program p1 const var s: string c; byte begin end else write (s) end readln i: integer readin  (s)

леона́рд э́йлер  (нем.  leonhard euler;   15  апреля  1707,  базель,  швейцария  —  7 (18) сентября  1783,  санкт-петербург,  российская империя)  — швейцарский, и российский    и  механик, внёсший вклад в развитие этих наук (а также  ,  астрономии  и ряда прикладных наук)[4]. эйлер  — автор более чем 850 работ[5]  (включая два десятка монографий) по  анализу,  дифференциальной ,  теории чисел,  приближённым вычислениям,  небесной механике,  ,  оптике,  ,кораблестроению,  теории музыки  и другим областям[6][7]. он глубоко изучал медицину, , ботанику, воздухоплавание, теорию музыки, множество европейских и древних языков. академик  петербургской,  берлинской,  туринской, лиссабонской и базельской академий наук, иностранный член  парижской академии наук[8].

почти полжизни провёл в россии, где внёс существенный вклад в становление российской науки. в  1726 году  он был приглашён работать в  санкт-петербург, куда переехал годом позже. с  1726  по  1741, а также с  1766 года  был академиком  петербургской академии наук  (будучи сначала  адъюнктом, а с  1731 года  —  профессором); в  1741—1766 годах  работал в  берлине  (оставаясь одновременно почётным членом петербургской академии)[4]. уже через год пребывания в россии он хорошо знал  язык  и часть своих сочинений (особенно учебники) публиковал на 1]. первые академики- (с.  к.  котельников) и астрономы (с.  я.  румовский) были учениками эйлера. некоторые из его потомков до сих пор живут в россии.

Составить программу, которая меняет местами значения переменных a и b, введенных с клавиатуры, без использования дополнительных переменных вот прога которую я нашёл в инете и разбирал не понимаю одного как она вычисляет по формулам begin a: =a+b; b: =a-b; a: =a-b; end; объясните если например a= 23, b=45 pascalвыделить код 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 var a,b: real; procedure change(var a,b: real); begin a: =a+b; b: =a-b; a: =a-b; end; begin writeln(' г*,гў'); readln(a,b); writeln('a=',a); writeln ('b=',b); change(a,b); writeln('a=',a); writeln ('b=',b); readln; end.