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)
//PascalABC.NET 3.3,сборка 1611 от 06.01.2018
//Внимание! Если программа не работает, обновите версию!
begin
var mas:=ArrRandom(14,-99,99); mas.Println;
var a:=mas[1]**3; var b:=mas.Where(t-> t> a).Count;
if b=0 then Writeln('поиск неудачен') else
Writeln('Таких элементов ->',b);
end.
1)var i,n:integer;x,p:real;
begin
readln(n,x);
p:=1;
for i:= 1 to n do
p:=p*x;
write(p);
readln
end.
2)var x:integer;
begin
readln(x);
if x < 18 then
write('да')
else
write('нет');
readln
end.
<u>PascalABC.NET 3.3.5, сборка 1650 от 01.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=SeqRandom(5,-99,99).Select(t->0.1*t).ToArray;
a.Println;
var b:=SeqRandom(5,-99,99).Select(t->0.1*t).ToArray;
b.Println;
var c:=a.Zip(b,(p,q)->(p+q)/2).ToArray; c.Println
end.
<u>Пример</u>
-8.4 -8.3 -0.1 -6.3 9.4
3.3 -7.4 -1.4 9.5 9.6
-2.55 -7.85 -0.75 1.6 9.5
Первое видео? Похоже программа ломаная, качай вегас, он надежнее
