Дима хотел послушать музыку на компьютере, для этого ему нужно было включить музыкальный файл белые_розы.mp3. он начал работу с каталога с: \музыка\хиты. сначала он спустился на один уровень вниз, в каталог ретро, затем поднялся на один уровень вверх, потом спустился на один уровень в каталог лучшие, после чего спустился в каталог про_цветы и нашёл там нужный музыкальный файл. запишите полный путь к данному файлу. 1. с: \белые_розы.mp3 2. с: \музыка\хиты\ретро\про_цветы\белые_розы.mp3 3. с: \музыка\хиты\лучшие\про_цветы\белые_розы.mp3 4. с: \про_цветы\белые_розы.mp3

C:\Музыка\Лучшие\Про_цветы\Белые_розы.mp3

Вариант 3 является верным

1) Program n1; 
var n,i:integer; 
t:array[1..100] of real; 
a,b:real; 
begin 
readln(n); 
readln(a); 
readln(b); 
for i:=1 to n do 
begin 
t[i]:=(b-a)/n; 
write(t[i],'  '); 
end; 
end.
2) Program n1; 
var a:array[1..100] of integer; 
n,i:integer; 
k:real; 
begin 
read(n); 
k:=0; 
for i:=1 to n do 
read(a[i]); 
for i:=1 to n do 
if a[i] mod 2 <> 0 then 
k:=k+1; 
writeln; 
writeln('кол-во нечет. чисел равно ',k,''); 
end.
6) Program n1; 
var a:array[1..100] of real; 
i,n:integer; 
s,sr:real; 
begin 
read(n); 
for i:=1 to n do 
read(a[i]); 
s:=0; 
sr:=0; 
for i:=1 to n do 
s:=s+a[i]; 
sr:=s/n; 
writeln('сред. арифметическое равно ',sr,''); 
end.
7)  Program n1; 
var a:array[1..100] of real; 
i,n:integer; 
min,max:real; 
begin 
read(n); 
for i:=1 to n do
read(a[i]); 
min:=a[1]; 
for i:=2 to n do 
if a[i]<min then 
min:=a[i]; 
max:=a[1]; 
for i:=2 to n do 
if a[i]>max then 
max:=a[i]; 
writeln('максимальный элемент равен ',max,''); 
writeln('минимальный элемент равен ',min,''); 
end.
8) Program n1; var a:array[1..100] of real; i,n:integer; min,max,nom1,nom2:real; begin read(n); for i:=1 to n do read(a[i]); min:=a[1]; nom1:=1; for i:=2 to n do if a[i]<min then begin min:=a[i]; nom1:=i; end; max:=a[1]; nom2:=1; for i:=2 to n do if a[i]>max then begin max:=a[i]; nom2:=i; end; writeln('максимальный элемент равен ',max,', его номер ',nom2,''); writeln('минимальный элемент равен ',min,', его номер ',nom1,''); end.
9) Program n1; var a:array[1..100] of real; i,n:integer; min,max,s,sr:real; begin read(n); randomize; for i:=1 to n do begin a[i]:=random(100)+1; write(a[i],'  '); end; writeln; s:=0; sr:=0; for i:=1 to n do s:=s+a[i]; sr:=s/n; writeln('ср. арифм. = ',sr,''); min:=a[1]; for i:=2 to n do if a[i]<min then min:=a[i]; max:=a[1]; for i:=2 to n do if a[i]>max then max:=a[i]; writeln('максимальный элемент равен ',max,''); writeln('минимальный элемент равен ',min,''); end.

Для начала,надо посмотреть условие задачи,у нас в задаче условие такого: не должно быть чисел больше 27 и 18(т.к. Смотри первый пункт задачи. И числа должны быть записаны по неубыванию,то есть либо по возрастанию,либо должны быть равны друг другу(например,как 1616,1414,2424 и тд.). Следующий шаг будет,рассмотрим числа,которые нам предложены
1) первое число это 40. Делим число 40 на два числа это 4 и 0. 4 и 0 мы можем использовать по условию задачи по первому пункту,но ко второму пункту он не подходит,потому что записан в порядке убывания,а как мы уже поняли по условию,числа должны быть записаны в порядке не убывания(2 пункт задачи)
2) смотрим второе число 1030 ,делим его на два числа 10 и 30, это число нам не подходит,потому что в нём присутствует число 30,а число 30 нам нельзя использовать по условию задачи (1 пункт)
3) смотрим на 3 число 130,разделили его на два числа( мы его можем разделить двумя первый это 1 и 30,в этом случае он нам не подойдёт, второй и 0) в этом случае он нам подойдёт по первому пункту,но нужно проверит второй пункт число 13 и 0 записаны по убыванию,по второму пункту это число не подходит так как в условии говорится что числа должны быть записаны непоубыванию(а если не по убыванию ,то следовательно это или по возрастанию либо должны быть равны друг другу(например 1616,1515,1414 и тд.)
И так надо брать каждое число и про гонять его по условию задания,и потом посчитать количество чисел которые подошли по условию это и будет ответ
Если что-то не понятно уточню