var
a:array[1..100] of real;
i, n:integer;
begin
write('Введите количество элементов '); readln(n);
for i := 1 to n do
begin
write('a[', i ,'] = ');
readln(a[i]);
end;
writeln;
writeln('Исходный массив:');
for i := 1 to n do
begin
write(a[i], ' ');
if i mod 2 = 1 then
a[i] := sqrt(a[i]);
end;
writeln;
writeln;
writeln('Преобразованный массив:');
for i := 1 to n do
write(a[i]:0:2, ' ');
writeln;
end.
1 кбайт=1024 байт
1мегобайт=1024кбайт
1гигабайт=1024мегобайт
1)Через сеть интернет либо съемные носители 2)Размножался в системе, выполнял нагрузку на цп до 100% 3)Удалил с помощью антивирусной программы 4)нужно ставить защиту на браузер и перед работы со съемным носителем проверять его на вирусы
210*210 = 44100 пикселей
4Кб = 4*1024*8= 32768 бит
32768 / 44100 = 0,7. В итоге получаем 1 бит