Был в каталоге С:\Музыка\Хиты
1. Сначала опустился на один уровень вниз в каталог Ретро => С:\Музыка\Хиты\Ретро
2. Затем поднялся на один уровень вверх, проще говоря, вернулся назад в С:\Музыка\Хиты
3. Спустился на один уровень вниз в каталог Лучшие => С:\Музыка\Хиты\Лучшие и здесь нашел файл.
Полный путь - С:\Музыка\Хиты\Лучшие\Белые_розы.mp3
Log2(16)=4
4x1024x768=3145728 бит = 393216 байт = 384КБайт
PascalABC.NET 3.4
begin
var n := ReadInteger('n=');
var a := ArrRandom(n, 0, 2); a.Println;
var (k, km) := (0, 0);
for var i := 0 to n-1 do
if a[i] = 0 then
if k = 0 then k := 1
else k += 1
else
begin
if k > km then km := k;
k := 0
end;
Writeln('Максимальное количество нулей подряд равно ',km)
end.
program rost;
var h1,h2,h3: integer;
begin
write ('Введите рост трёх спортсменов');
read(h1,h2,h3);
writeln;
if (h1<h2) and (h2<h3) then
write ('По росту') else
write ('Не по росту');
end.