1 байт = 8 бит
128 бит = 16 байтов
1 Кбайт = 8000 битов
1.5 Кбайт = 1500 байтов
2048 байт = 2,048 Кбайтов
2 мегабайта = 2000 килобайтов
81920 бит = 10,24 килобайт
1.5 мегабайтов = 1,5*10^6 байт
Program wtf;
var a,b,c,S:integer;
begin
writeln('Введите a');
readln(a);
writeln('Введите b');
readln(b);
writeln('Введите c');
readln(c);
S:=a+b+c;
writeln('Сумма цифр= ',S);
end.
N=2^8= 256 кодов
_________________
Program sp;
var
n, x: integer;
1: label;
begin
n:= 13;
label main;
writeln(n);
writeln('Можно взять 1, 2 или 3 спички. Ваш ход');
readln(x);
n := n - x;
if n > 0 then
begin
writeln('Мой ход. Я возьму', 4 - x);
n := n - (4 - x);
end
end
if n <= 0 then
writeln('Вы проиграли!')
else
goto 1;
end
end.