Бит - это минимальная единица измерения информации. В 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, мы получим исходное сообщение.
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, мы получим исходное сообщение.
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.