Program abc;
var
n, i: integer;
s: real;
begin
write('Введите n: ');
readln(n);
for i := 1 to n do
s := s + 1 / i;
write('s= ', s);
end.
В биты помню это 128 байт=1024 бит
а вот в кб не помню
Языки низкого уровня - это машинный язык, язык Ассемблера.
Машинный язык состоит из двух символов - 0 и 1 (программа строится в двоичной системе счисления).
В принципе, эти языки низкого уровня сейчас если и применяются, то для создания небольших программ. Языки низкого уровня ориентированы на машину.
А вот языки высоко уровня ориентированы на человека (на пользователя ПК). Это такие языки программирования: Бейсик, Паскаль, Турбо Паскаль, С++ и другие. Чем более понятен язык человеку, тем выше его уровень.
Бит - это минимальная единица измерения информации.
В 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, мы получим исходное сообщение.
Тебе две программы или одну?
// Язык Pascal
Var i : integer;
Begin
for i:= 5 to 20 writeln(i);
for i:=45 to 60 writeln(i);
end.
Да, я серьезно, это будет работать. Это две задачи в одной. Поползут цифры в столбик, с 5 до 20, потом резко с 45 до 60, а потом программа закроется
