«единицы измерения информации» перевести в кбайты: a) 6144 байт = b) 1, 5 мбайта = c) 4096 бита = перевести в мбайты: a) 4 гбайта = b) 2560 кбайт = c) 4 194304 бита = перевести в байты: a)724 бит = b) 2, 5 мбайта = c) 1/8 гбайта =

A)    6144 байт = 6кб b)  1,5 мбайта =  1536кб c)  4096 бита =    0.5кб a)  4  гбайта =  4096мб b)  2560  кбайт =  2.5мб c)  4 194304 бита =  0.5мб a)724  бит =  90.5байт b)  2,5  мбайта =     2621440байтc)  1/8  гбайта =1932735283.2байт

Видимо у вас 2 условия, то есть 2 разных :   1-я : яблок не больше, чем груш  2-я : яблок не меньше, чем 20  1-я :   я< =г  г=15  ответ: плодов не более 30 (15 груш и не более 15 яблок)  2-я :   г=15  я> =20  ответ: плодов не менее, чем 35 (15 груш и не менее 20 яблок)  если это всё же одна и оба условия надо воспринимать одновременно, то:   ответ: условие некорректно, так как 2 условия противоречат друг другу, то есть не может быть одновременно яблок не больше 15 и не меньше 20.

Var   ar: array[1..10]of integer;   i, c, s: integer;   begin   s : = 0;   c : = 0;   randomize;   for i : = 1 to 10 do ar[i] : = random(-10, 10);   writeln('полученный массив: ');     for i : = 1 to 10 do write(ar[i], ' ');   writeln;   for i : = 1 to 10 do if(ar[i] < > 0) then c : = c + 1;   writeln('количество ненулевых элементов = ', c);   for i : = 1 to 10 do if(ar[i] < > 0) then s : = s + ar[i];   writeln('сумма всех его ненулевых элементов = ', s);   write('их среднее арифметическое = ',s/c); end.