Это зависит от вас. Можно сделать презентации на темы: История Интернета, Вводные устройства, Первый компьютер, WEB-страницы и т.д
В NTFS-256 знаков.
В FAT- только 11 знаков ( 8 знаков имя, потом "."? и 3 знака расширение.
Система WFAT ( Windows 9х/Me) поддерживает до 256 знаков в имени.
Const
n = 8;
var
i, j, umax, lmax: integer;
a: array[1..n, 1..n] of integer;
begin
Randomize;
writeln('Исходный массив');
for i := 1 to n do
begin
for j := 1 to n do
begin
a[i, j] := Random(40) - 20;
write(a[i, j]:4)
end;
writeln;
end;
umax := -100;
for i := 1 to n do
for j := i to n do
if umax < a[i, j] then umax := a[i, j];
lmax := -100;
for i := 1 to n do
for j := 1 to i do
if lmax < a[i, j] then lmax := a[i, j];
writeln('Разность максимумов равна ', umax - lmax)
end.
Тестовое решение:
Исходный массив
-5 18 -13 1 -16 5 0 -13
4 -18 -17 -14 2 10 -2 -15
-15 -8 -6 -16 -10 -12 -18 -17
-18 6 11 -5 4 -6 -1 1
10 14 3 -7 2 11 10 -1
6 -2 -20 1 4 9 13 -4
-9 -7 4 -6 -12 3 1 -14
15 -16 -1 -3 13 -15 3 -10
Разность максимумов равна 3
Дописываем немного код для перебора и проверяем вывод
var
x, a, b, t: longint;
begin
for t := -1000 to 1000 do
begin
x := t;
a := 0;
b := 1;
while x > 0 do
begin
if x mod 2 > 0 then
a := a + x mod 8
else
b := b * (x mod 8);
x := x div 8;
end;
if (a = 2) and (b = 12) then
writeln(t);
end;
end.
Вывод 598
626
654
689
906
913
т.е. минимальное число 598
Аналитическое решение:
имеем дело с 8ричным числом. Перебираем его цифры.
Если цифра нечетная то сумируем ее к А, а четные перемножаем с В
В = 12 это произведение 12 = 2*6 = 3*4 = 1*12, но нужно чтоб все числа были четные потому 2*6
А = 2. 2 = 2 = 1+1 , поскольку числа нечетные, то 2 = 1+1
Значит у нас есть 4 8ричные цифры 2,6,1,1
Минимальное число которое может из них получиться 1126(8) = 598(10)
Ответ:
Кодировку utf-8 поставил?
Объяснение: