Файл размером 4096 байт передаётся через некоторое соединение со скоростью 512 бит в секунду.определите размер файла (в кбайтах), который можно передать за то же время через другое соединение со скоростью 2048 бит в секунду. в ответе укажите одно число-размер файла в кбайтах. единицы измерения писать не нужо

16,4 ответ в килобайтах

1a) var   a: integer; begin   readln(a);   if a mod 2 = 0 then       println('da')   else println('net'); end. ====================================== 1 б) var   a: integer; begin   readln(a);   if a mod 10 = 7 then       println('da')   else println('net'); end. ================================ 2 а var   a: integer; begin   readln(a);   if (a div 10+a mod 10) mod 3 = 0 then       println('da')   else println('net'); end. ====================================== 2 б var   n,a: integer; begin   writeln('введите число');   readln(n);   writeln('введите a');   readln(a);   if (n div 10+n mod 10) mod a = 0 then       println('da')   else println('net'); end.

Var  a: array[1..100] of integer;     i, n: integer;     p: integer;       begin    randomize;     writeln('massiv: ');   readln(n);     for i : = 1 to n do      a[i] : = random(10) - 5;     writeln('исходный массив: ');   for i : = 1 to n do    write(a[i], ' ');     p: =1;     for i : = 1 to n do        if (a[i]> 0) and (i mod 2=0) then p: =p*a[i];         writeln('произведение   =',p);   readln.     end.