Если не нужен вывод самих чисел, закомментируйте строки 8, 12, 15
<span>0.001
</span><span>Решение должно иметь от 20 до 5000 символов</span>
<span>var<span>
A, B, C: integer;</span>
begin<span>
write('Введите A, B и C: ');</span><span>
read(A,B,C);</span><span>
writeln('Число B находится между числами A и C - ',((A < B) and (B < C)) or ((A > B) and (B > C)));
</span><span>end<span>.</span></span></span>
1. там можно создавать презентации
2. там можно редактировать презентации
Var
ax, bx:word;
st, sa,sg:string;
i,j, l:byte;
BEGIN
write('Введите целое положительноe число : ');
readln(st);
sa := '';
sg := '';
ax := 0;
bx := 1;
l := st.Length;
for i:=1 to l do begin
j:=ord(st[i])-48;
ax := ax + j;
bx := bx * j;
sa := sa+j+'+' ;
sg := sg+j+'*';
end;
i := l*2-1;
sa := sa.Remove(i,1);
sg := sg.Remove(i,1);
writeln('Среднее арифметическое = (',sa,')/',l, '= ', ax / l );
writeln('Cреднее геометрическое = корень ',l ,' степени из (',sg,') = ', exp(ln(bx)/l));
END.