1. Что записано в первом секторе главной загрузочной записи MBR ?
2. Функциональное назначение MBR и GPT ?
3. Структура GPT.
4. Какое максимальное количество первичных разделов можно создать при использовании таблицы разделов MBR ?
5. Какое максимальное количество первичных разделов можно создать при использовании таблицы разделов GPT ?
6. Как сохранить информацию о структуре MBR ?
7. Как создать 10 разделов c файловой системой ext3 на диске в таблице разделов MBR ?
8. Как стереть код загрузчика в MBR ?
9. Как можно смонтировать раздел диска с файловой системой в режиме только для чтения?
10. Как можно осуществить восстановление GPT разделов в случае сбоев?

var a,b,i,s: integer;

begin

writeln('введите 2 числа');

readln(a); readln(b);

s: =0;

if a< b then

for i: =a to b do

  begin

  if i mod 2 = 0 then

  s: =s+1;

  end;

if a> b then

for i: =b to a do

  begin

  if i mod 2 = 0 then

  s: =s+1;

  end;

writeln(s)

end.

пусть [a,b] - область и a< =b

var

a,b,x: real;

begin

readln(a,b,x);

if (a< =x) and (x< =b) then

writeln('принадлежит')

else

writeln('не принадлежит');

end.

var a: array[1..10, 1..10] of integer; i, j, s: integer;

begin s : = 0; for i : = 1 to 10 do begin for j : = 1 to 10 do begin a[i, j] : = random(20) + 1; write(a[i, j]: 3); if (j = 2) and (a[i, j] > 10) then s : = s + a[i, j]; end; writeln; end; writeln('сумма элементов 2го столбца больших 10 равна', s); end.

var s: string; begin  writeln('как вас зовут? ');       readln(s);       case s of        'вася': s: ='василий';         'петя': s: ='петр';         'люся': s: ='людмила';         'миха': s: ='михаил';         'пупс': s: ='пупондий';             else s: ='я с вами не знакома';       end;             writeln(s);       readkey; end.