Переводим сначала всё в биты для удобства. 1 байт=8 бит, 9 бит, 16 байт=128 бит 2 кб=2048 байт=16000 бит 8192 бит, 16 бит. конечный результат от меньшего к большему:1 байт,9 бит,16 бит,16 байт,8192 бит,2 КБ.
begin writeln('введите три числа'); read(num1, num2, num3); //вводим три числа
if (num1 mod 10 = 1) and (num1 mod 7 = 0) then //при делении на 10, остаток это будет последней цифрой //затем проверям кратно ли num1 7, если да то прибавляем его к сумме summ:=summ+num1;
//тоже самое выполняем с num2 if (num2 mod 10 = 1) and (num2 mod 7 = 0) then summ:=summ+num2;
//и num3 if (num3 mod 10 = 1) and (num3 mod 7 = 0) then summ:=summ+num3;
1 байт=8 бит,
9 бит,
16 байт=128 бит
2 кб=2048 байт=16000 бит
8192 бит,
16 бит.
конечный результат от меньшего к большему:1 байт,9 бит,16 бит,16 байт,8192 бит,2 КБ.