1):<span>С:\Учебный\Информатика\Кодирование ->
</span><span>С:\Учебный\Информатика ->
</span><span>С:\Учебный ->
</span><span>С:\Учебный\Информатика ->
</span><span>С:\Учебный\Информатика\Кодирование ->
</span>С:\Учебный\Информатика ->
С:\Учебный ->
Не подходит, т.к. Витя опустился на n уровней, а поднялся на n+2, что не подходит по условию.
2)С:\Учебный\Информатика\Кодирование ->
<span> С:\Учебный\Информатика ->
</span><span>С:\Учебный ->
</span> С:\Учебный\Информатика ->
<span> С:\Учебный\Информатика\Программирование->
</span><span>С:\Учебный\Информатика\Программирование\Паскаль
</span>Не подходит, т.к. Витя спустился на либо на 2 уровня вниз, либо на 3, а поднялся либо на 3, либо на 4 уровня вверх, что не подходит по условию.
3)<span>С:\Учебный\Информатика\Кодирование ->
</span>С:\Учебный\Информатика ->
С:\Учебный ->
<span> С:\Учебный\Математика ->
</span><span> С:\Учебный\Математика\Дроби
Подходит. </span>Витя опустился на 2 уровня вниз и поднялся на 2 уровня вверх.
4)С:\Учебный\Информатика\Кодирование ->
<span> С:\Учебный\Информатика ->
</span><span>С:\Учебный ->
</span><span>С:\ ->
</span><span>С:\Учебный\ ->
</span><span>С:\Учебный\Информатика
</span>Не подходит, т.к. Витя спустился на 3 уровня вниз, а поднялся на 2, что не подходит по условию.
Ответ: 3)
Задача 1:
Program Test1;
Var min, i: integer; num: array[1..5] of integer;
Begin
Writeln('Введите 5 чисел (через пробел): ');
Readln(num[1], num[2], num[3], num[4], num[5]);
min := 0;
for i := 1 to 5 do
begin
if (num[i] < min) then
min := num[i];
end;
if (min < 0) then
begin
Writeln();
Writeln('Min = ', min);
end
else
begin
Writeln();
Writeln('Вы не ввели отрицательных чисел!');
end;
End.
---------------------------------
Задача 2:
Program Test2;
Var max, i: integer; num: array[1..10] of integer;
Begin
Writeln('Введите 10 чисел (через пробел): ');
Readln(num[1], num[2], num[3], num[4], num[5], num[6], num[7], num[8], num[9], num[10]);
max := 0;
for i := 1 to 10 do
begin
if (num[i] > max) then
begin
if (num[i] mod 2 = 0) then
max := num[i];
end;
end;
if (max > 0) then
begin
Writeln();
Writeln('Max = ', max);
end
else
begin
Writeln();
Writeln('Вы не ввели четных положительных чисел!');
end;
End.
(I - объем информации, K - кол-во пикселей, i - вес одного пикселя / глубина цвета, N - кол-во цветов в палитре)
Дано:
K = 128 * 512 = 65536 пикселей
I = 24 Кбайт = 24 * 1024 * 8 бит = 196608 бит
i - ?
Решение:
бит (округляем в меньшую сторону так, как тут могут быть только целые числа)
цветов
Ответ: 8
Текстовый файл, ну то есть содержит текстовую информацию.