Начнем с определения мин кол-ва бит год до 2100 это будет два в двенадцатой(12 бит) так как в одинадцатой не хватает немного, месяц это два в четвертой(4 бит) а день это два в пятой(5 бит) перемножаем их между собой, затем на 80 и получаем биты 12*4*5*80=19200бит коли ответ нужен в байтах, так просто делим на 8 и получаем 19200/8=2400байт
a) 120
Б)373
Механизм решения данных заданий -
Расставить степени начиная с нулевой с права на лево
в вашем случае 0^7 1^6 1^5 1^4 1^3 0^2 0^1 0^0
записать вместо единиц двойки с их степенями
2⁶ + 2⁵ + 2⁴ + 2³
Считаем, складываем и получаем 120. Так переводятся числа из 2 в 10 систему счисления.
Var m,n,p,k:integer;
begin
writeln('Введите 3 числа:');
readln(m,n,p);
k:=0;
if m<0 then k:=k+1;
if n<0 then k:=k+1;
if p<0 then k:=k+1;
writeln('k=',k);
end.
Пример:
Введите 3 числа:
12 -7 31
k=1
Відповідь:А нельзя просто нажать на кнопку "Вставить" и вибрать файл?
Пояснення: