Написать программу на языке паскаль. на вход программе дается 2 числа. определите какое из них большее, из большего вычеслить меньшее. на выход разностей чисел

Var   a, b: integer; begin   readln(a, b);   writeln(max(a, b) - min(a, b)); end.

1  1  1  1  1  1  1 = 1*64 + 1*32 + 1*16 + 1*8 + 1*4 + 1*2 + 1*1 = 80 + 47 = 127(начиная с конца пишу над цифрами 0 1 2 3 4 5 6, это будут степени двойки, которые умножаются на эти самые единицы и складываются) 1 0 1 0 1 0 1 0 = 1*128 + 0*64 + 1*32 + 0*16 + 1*8 + 0*4 + 1*2 + 0*1 = 128+32+8+2=130+40 = 170 (не обращайте внимания на корявый подсчет, мне так удобнее) 10101010 / 2 = 5050505 (в остатке 0) 5050505 / 2 = 2525252 (в остатке 1) 2525252  / 2 = 1262626 (в остатке 0) 1262626  / 2 = 631313 (в остатке 0) 631313/ 2 = 315656 (в остатке 1) 315656  / 2 = 157828(в остатке 0) 157828  / 2 = 78914 (в остатке 0) 78914 / 2 = 39457 (в остатке 0) 39457 / 2 = 19728 (в остатке 1) 19728 / 2 = 9864 (в остатке 0) 9864 / 2 = 4932 ( в остатке 0) 4932 / 2 = 2466 ( в остатке 0) 2466 / 2 = 1233 (в остатке 0) 1233 / 2 = 616 (в остатке 1) 616 / 2 = 308 ( в остатке 0) 308 / 2 = 154 (в остатке 0) 154 / 2 = 77 (в остатке 0) 77 / 2 = 38 (в остатке 1) 38 / 2 = 19 (в остатке 0) 19 / 2 = 9 (в остатке 1) 9 / 2 = 4(в остатке 1) 4 / 2 = 2(в остатке 0) 2 / 2 = 1(в остатке 0) и снизу вверх записываем число 100 110 100 010 000 100 010 010 проверял в онлайн-калькуляторе все так.

Периметр прямоугольника: p=2(a+b). площадь: s=ab косинусы углов в треугольнике: cosa=(b²+c²-a²)/(2bc); cosb=(a²+c²-b²)/(2ac); cosc=(a²+b²-c²)/(2ab) var   a,b: real; begin   write('введите a,b: ');   read(a,b);   write('p=',2*(a+b),', s=',a*b) end. тестовое решение введите a,b: 12.2 8 p=40.4, s=97.6 var   a,b,c,cosa,cosb,cosc: real; begin   write('введите a,b,c: ');   read(a,b,c);   cosa: =(b*b+c*c-a*a)/(2*b*c);   cosb: =(a*a+c*c-b*b)/(2*a*c);   cosc: =(a*a+b*b-c*c)/(2*a*b);   write('cosa=',cosa,', cosb=',cosb,', cosc=',cosc) end. тестовое решение введите a,b,c: 15.3 8 14.2 cosa=0.138864436619718, cosb=0.855495719414526, cosc=0.393995098039216