Написать программу на PASCAL ABC У пользователя запрашивается длинна массива, далее геница массив из вещественных чисел, для которой определяются 2 пользовательские функции:
1.вычисляет квадраты всех элементов массива, и формирует 2 массив.
2.вычисляет среднее геометрическое для всех выражений

Решить можно обратным ходом т.е. провести все вычисления в обратном порядке:
Предположим что число 62 мы таки получили,тогда пред последним шагом было либо умножение, либо перестановка цифр; рассмотрим два случая:
1)Если перестановка, то:
перед ней было число 26
если его тоже получили путем перестановки получается замкнутый круг, следовательно оно получило умножением из 13-нечетное 31(перестановка) тоже нечет - противоречие.
2)Если 62 получили умножением то:
Раньше было число 31-нечетное и если пере ставить цифры то 13-тоже нечетное, следовательно случай тоже невозможен.
ответ: число 62 из единицы получить нельзя

Держи 1 и 3 ;) :

 

1)

Program solution;
Uses Crt;
Var i, poloz, otrits, zero : Byte;
n : integer;

Begin
ClrScr;
poloz := 0;
otrits := 0;
zero := 0;

for i := 1 to 10 do
        begin
        readln(n);
        if n > 0 then poloz := poloz + 1;
        if n < 0 then otrits := otrits + 1;
        if n = 0 then zero := zero + 1;
        end;

write('+: ', poloz, ', -: ', otrits, ', 0: ', zero);

ReadKey;
End.

 

3:

Program solution;
Uses Crt;
Var sum, num, count : Word;

Begin
ClrScr;
sum := 0;
count := 0;

while sum <= 100 do
        begin
        write(': ');
        readln(num);
        sum := sum + num;
        count := count + 1;
        end;

writeln('Было введено чисел: ', count);

ReadKey;
End.