1Кб <span> </span> = 1024 байт = 8192 бит
2 килобайта = 1024х2=2048
1Мб <span>= 1024 Кб = 8 388 608 бит </span>
3Мб = 3х1024х1024=3145728 байт
1 бит=8 байт.
128 бит:8=16 байтов
Var
n:integer;
begin
readln(n);
n:=n mod 7;
if n=1 then
writeln('Понедельник');
if n=2 then
writeln('Вторник');
if n=3 then
writeln('Среда');
if n=4 then
writeln('Четверг');
if n=5 then
writeln('Пятница');
if n=6 then
writeln('Суббота');
if n=7 then
writeln('Восресенье');
end.
Var
n, i, z: Integer;
begin
Write('n=');
ReadLn(n);
if n = 0 then
WriteLn('z=-1')
else if (n < 0) then
WriteLn('Введено отрицательное число')
else
begin
z := 1;
for i := 1 to n do
z := z * 1 * (3 * i - 1);
WriteLn('z=', z);
end;
end.
Begin
writeln(2798 mod 28 div 9);
end.
Ответ 2