1.
а) 512 Мбайт = 512 * 8 Мбит = 4096 Мбит
б) 32 Кбайт = 32 * 8 Кбит = 256 Кбит
2.
а) 32 Мбит = 32 : 8 Мбайт = 4 Мбайт
б) 1024 Кбит = 1024 : 8 Кбайт = 128 Кбайт
3. Все зависит от кодировки. Если 1 символ занимает 1 байт, тогда сообщение будет занимать столько байт, сколько символов в сообщении (буквы, пробелы, точки и любые другие символы) - в данном случае - 20 байт.
Если же 1 символ занимает 2 байта (к примеру в кодировке юникод UTF-16), тогда сообщение будет занимать 40 байт.
4. 4 гигабайта = 4096 Мбайт.
4096 / 2 = 2048 картинок поместится на флешке размером 4 гигабайт
Последний вопрос не понял. Посчитать 2 в 32 степени?
Program mathlover12;
const
n = 50; {Количество элементов массива}
m = 50; {Максимально возможное значение элемента}
var
a:array[1..n] of integer;
i,pp:integer;
s:string;
begin
s:='**** -=Alphaeus=- ****';
for i:=1 to 22 do begin write(s[i]); sleep(42) end;
{заполняем массив случайными числами}
writeln; randomize;
for i:=1 to n do a[i]:=random(m+1);
{Ищем произведение элементов, меньших 25}
pp:=1;
for i:=1 to n do
if a[i]<25 then pp:=pp*a[i];
{Вывод}
writeln;
for i:=1 to n do
write(a[i],' ');
writeln; writeln;
writeln('Произведение элементов, меньших 25, равнo ',pp);
end.
{PascalABC.NET}
Program mathlover12;
const
n = 50; {Количество элементов массива}
m = 50; {Максимально возможное значение элемента}
var
a:array[1..n] of integer;
begin
var s:='**** -=Alphaeus=- ****';
for var i:=1 to 22 do begin write(s[i]); sleep(60) end;
{заполняем массив случайными числами}
writeln; randomize;
for var i:=1 to n do a[i]:=random(m+1);
{Ищем произведение элементов, меньших 25}
var pp:=1;
for var i:=1 to n do
if a[i]<25 then pp:=pp*a[i];
{Вывод}
writeln; a.println; writeln;
writeln('Произведение элементов, меньших 25, равнo ',pp);
end.