Если y – вещественная переменная, а n – целая, то правилен или нет следующий оператор присваивания: y: =sqr(sqrt( (ответ обосновать)

Если n целое, то с ним можно делать все что угодно, главное что переменная к которой все это присваивается была вещественной.

Поскольку тут речь о последовательности неизвестной длины, вводимой с клавиатуры до появления нуля, а условие позволяет для каждого вводимого числа сразу решить, должно ли оно входить в сумму, решается без использования массива и условие " количество чисел не превышает 1000" - это просто ловушка для наивных с тем, чтобы в случае использования массива длиной 1000 объявить затем решение неэффективным по памяти. 1. решение на современной версии паскаля pascalabc.net 3.2, сборка 1389 от 01.03.2017 внимание! если программа не работает, обновите версию! begin   var s: =readseqintegerwhile(n-> n< > 0)           .where(n-> (n mod 3=0) and (n mod 10=;   writeln('сумма отобранных чисел равна ',s)      end. пример 15 36 26 72 25 96 83 0 сумма отобранных чисел равна 132 2. решение "по-школьному" var   n,s: integer; begin   s: =0;   repeat       read(n);       if (n mod 3=0) and (n mod 10=6) then s: =s+n   until n=0;   writeln('сумма отобранных чисел равна ',s) end. пример 15 36 26 72 25 96 83 0 сумма отобранных чисел равна 132