Возьми слово переписка
подбирай слова такие чтобы в них была буква п е р е п и с к а.
все!
Var a,b:integer;
begin
read(a,b);
if (a*b) mod 5 = 0 then writeln('делится') else writeln('не делится');
end.
53,63,73,83,93 = ВСЕ ЧИСЛА
Начнем с определения мин кол-ва бит год до 2100 это будет два в двенадцатой(12 бит) так как в одинадцатой не хватает немного, месяц это два в четвертой(4 бит) а день это два в пятой(5 бит) перемножаем их между собой, затем на 80 и получаем биты 12*4*5*80=19200бит коли ответ нужен в байтах, так просто делим на 8 и получаем 19200/8=2400байт
Перевод из 10-ой с/с в 2-ую
1)-73₁₀ = -1001001₂
2)-11₁₀ = -1011₂
3)-97₁₀ = 1100001₂
4) 43₀ = 101011₂
5) 83₁₀ = 1010011₂
6) 15₁₀<span> = 1111</span>₂