1) напишите функцию вычисляющую количество трехзначных чисел делящихся на 13 и не оканчивающихся на 3 2)для некоторого массива из 30 элементов, проверить, есть-ли в массиве элемент, заданному значению с клавиатуры

Pacal

 
function F() : integer; 
var   
k,i : integer; 
begin   
k := 0;   
for i := 100 to 999 do   
if (i mod 13 = 0) and (i mod 100 <> 3) then     
k := k +1;   
Result := k;   
end;   

begin 
writeln (f()); 
end.

 

const     
n = 30;  
var   
a : array [1..n] of integer;   
i,b : integer;   
r : boolean;       
begin 
readln (b);   
i := 1; 
r := false;   
While (not r) and (i <= n) do   
begin     
if a[i] = b then     
r := true;     
i := i +1;   
end;   
if r then   
writeln ('Есть') 
else   
writeln ('Нет');    
end.

javascript: function Пр(ч) { var стр = ч.toString(); for (let сч = 1; сч < стр.length; сч++) { let ч1 = parseInt(стр.substring(0, сч)), ч2 = parseInt(стр.substring(сч)); if (ч1 > ч2) continue; let к1 = Math.sqrt(ч1), к2 = Math.sqrt(ч2); if (к1 == Math.floor(к1)) { for (let сч1 = 1; сч1 < 10 && сч1 < ч2 - 1; сч1++) for (let сч2 = 1; сч2 * сч2 + сч1 * сч1 <= ч2; сч2++) if (сч2 * сч2 + сч1 * сч1 == ч2 && Math.pow(сч1 + сч2, 2) == ч1) return ч + ": " + сч1 + ", " + сч2; } if (к2 == Math.floor(к2)) { for (let сч1 = 1; сч1 < 10 && сч1 < ч1 - 1; сч1++) for (let сч2 = 1; сч2 * сч2 + сч1 * сч1 <= ч1; сч2++) if (сч2 * сч2 + сч1 * сч1 == ч1 && Math.pow(сч1 + сч2, 2) == ч2) return ч + ": " + сч1 + сч2; } }; return ч + ": -"; } [2949, 10, 11, 25, 95, 2036, 3264, 6581].forEach(function (зн) { alert(Пр(зн)); });

Відповідь:

1)  Конфигурация винчестера, программа перехода на загрузчик ОС, конфигурация разделов физического диска.

2) определение логической конфигурации диска; старт загрузки ОС

3) GPT таблица хранится сразу после MBR записи. 1 запись GPT = 512 байт (1 LBA сектор).  

- GPT Header;

- Primary GPT Entry(s);

- Partition(s);

- Secondary (Mirror) GPT Entry(s).

4) 4

5) неограничено, для Виндовз = 128

6) специальные утилиты

7) в рамках первичных разделов самой MBR - никак. Создаются логические разделы в рамках первичных разделов MBR

Пояснення:

на 4 из 5 ответ точно потянет.