Полное имя каталога, в котором хранился файл до перемещения, было D:/Документы/Химия
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
ReadSeqReal('=>',ReadInteger('n=')).Where(t->t>0).Average.Println
end.
<u>Пример</u>
n= 8
=> 3.16 0 -12.7 6 -19 0.082 7 -3
4.0605
Двоичное представление чисел 0 1 2 3 и 4
Е 0 0000
П 1 0001
Н 2 0010
Ч 3 0011
Ь 4 0100
ПЕЧЕНЬЕ в виде двоичного кода
0001 0000 0011 0000 0010 0100 0000
ответ в восьмеричном коде 100601100
Var N:integer;
r1,r2,r3:byte;
Begin
WriteLn('Введите четырёхзначное число');
ReadLn(N);
r1:=N div 1000;
r2:=(N div 100) mod 10;
r3:=(N div 10) mod 10;
N:=N mod 10;
Write((r1<>r2)and(r1<>r3)and(r1<>N)and(r2<>r3)and(r2<>N)and(r3<>N))
End.