<em>// PascalABC.NET 3.2, сборка 1439 от 09.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('n=');
if n.IsOdd then Write('Нечетное ')
else Write('Четное ');
if n>999 then Write('четырех')
else
if n>99 then Write('трех')
else
if n>2 then Write('двух')
else Write('одно');
Writeln('значное число')
end.
1) 1 бит инф.
2) 5 двоич. разрядов, т.к. 2^5=32
Язык программирования: Паскаль
а)
var
m, n : integer;
begin
readln (m);
readln (n);
if m > n then
writeln ('Первый пакет тяжелее');
if n > m then
writeln ('Второй пакет тяжелее');
end.
б)
var
m, n : integer;
begin
readln (m);
readln (n);
if m > n then
writeln ('Вес более тяжёлого пакета равен ', m, ' кг');
if n > m then
writeln ('Вес более тяжёлого пакета равен ', n, ' кг');
end.
Ответ:
10 байт
Объяснение:
Если для хранения 1 символа используется 1 байт, то для слова «немедленно» потребуется 10 байт.
В каждом кадре 1920*1080 = 2073600 пикселей
В каждом пикселе 24 бита = 3 байта (True-color)
В каждой секунде 50 кадров
Всего секунд 10
_______________________________________
2073600 * 3 * 50 * 10 = 3110400000 байт = 3037500 КБайт ≈ 2966,3 МБайт ≈ 2,9 ГБайт.
Ответ: 2,9 ГБайт.
