var n,s:integer;
x1,x2,x3,x4:integer;
begin
write('Vvedite N = ');
read(n);
x1:=n div 1000;
x2:=n mod 1000 div 100;
x3:=n mod 100 div 10;
x4:=n mod 10 div 1;
s:=x1+x2+x3+x4;
writeln(s);
end.
Кроме того, что ее можно перенастроить на любую из команд, какую сам захочешь, она также возвращает в начало списка, страницы, текста и того подобного.
343 (8сс) = 11 100 011 (2сс)
1. Узнаем сколько байтов в мегабайте:
1Мб=1024*1024=1048576 Байт
2. Найдем 1/64 Мб в Байтах=1048576/64=16384 Байт
3. Получившееся значение умножим на 5
16384*5=81920 Байт
Ответ:81920 Байт