Пользователь работал с каталогом c: \школа\биология\природоведение. сначала он поднялся на один уровень вверх, затем спустился на один уровень вниз в каталог зоология, затем вновь поднялся на один уровень вверх ипосле спустился в каталог анатомия. запишите полный путь каталога, в котором оказался пользователь. 1) с: \школа\биология\зоология 2) с: \школа\анатомия 3) с: \школа\биология\анатомия 4) с: \зоология

ответ:     3)  с: \школа\биология\анатомия

на один уровень вверх,значит из природоведения  в биологию; далее в зоологию; затем поднялся опять ввёрх в биологию; потом спустился вниз в анатомию

(ответ номер 2)неподходит т.к.в папке биология находилось три раздела: природоведение,зоология,анатомия)

cоответственно если он закончил на разделе анатомия,то полный путь каталога,в котором оказался пользователь,будет заканчиваться соответственным разделом -- анатомия; что мы и наблюдаем в ответе номер 3)

 

Pascalabc.net 3.4.2, сборка 1843 от 24.10.2018 внимание! если программа не работает, обновите версию!

begin

  var a : = arrrandom(readinteger('n='), -99, 99);

  a.println;

  var k : = readinteger('введите число для отбора по кратности: ');

  var b : = a.where(t -> (t < > 0) and (t mod k = .toarray;

  b.println

end.

пример

n= 21

-32 50 45 -21 -28 7 -24 60 42 -91 -51 47 -72 82 14 7 40 51 -82 92 -85

введите число для отбора по кратности: 3

51 -72 -51 42 60 -24 -21 45

т.к. a и b были не заданы, взял с 0 по size.

#include < iostream> #include < array> #include < algorithm> #include < numeric> constexpr std: : size_t size = 11u; int main() {     std: : array< int, size> b{ -3, -2, -1, 0, 1, 2, 3, 4, 5, 6, 7 };     std: : array< int, size> c;     std: : transform(b. b. c. [](int const& x) { return x; });     std: : cout < < std: : accumulate(c. c. 0); }