1) var v,h,i:real; begin readln(v); readln(h); i:=h-100; if v=i then writeln('у вас идеальный вес') else if v>i then writeln('вам нужно похудеть на ', v-i,' кг ') else writeln('вам нужно поправиться на ', i-v,' кг '); end.
2) var a:string; b:integer; begin readln(a); b:=strtoint(a[length(a)]); if (b mod 2 <> 0) and (b mod 5 <> 0) then writeln('число не делится ни на 2, ни на 5'); if (b mod 2 = 0) and (b mod 5 <> 0) then writeln('число делится только на 2'); if (b mod 2 <> 0) and (b mod 5 = 0) then writeln('число делится только на 5'); if (b mod 2 = 0) and (b mod 5 = 0) then writeln('число делится и на 2, и на 52'); end.
Бит - это минимальная единица измерения информации. В 16-ричном коде это выглядит так: C1 E8 F2 20 2D 20 FD F2 EE 20 EC E8 ED E8 EC E0 EB FC ED E0 FF 20 E5 E4 E8 ED E8 F6 E0 20 E8 E7 EC E5 F0 E5 ED E8 FF 20 E8 ED F4 EE F0 EC E0 F6 E8 E8 2E Если применить к каждому байту функцию XOR 55 (исключающее или с числом 55), то получится 94 BD A7 75 78 75 A8 A7 BB 75 B9 BD B8 BD B9 B5 BE A9 B8 B5 AA 75 B0 B1 BD B8 BD A3 B5 75 BD B2 B9 B0 A5 B0 B8 BD AA 75 BD B8 A1 BB A5 B9 B5 A3 BD BD 7B Самое интересное в этом коде то, что применив к нему снова XOR 55, мы получим исходное сообщение.
(n * m - (n - k) / 2 * (n - к) / 2 - n * к - m * k) / 2