Решу задачу только скажи случайные чисмла какого промежутка?
Var x,p,rez:real;
<span> n: integer;
</span><span>begin
</span><span> p:=1;
</span><span> write('числа через пробел (завершение ввода - 0): '); read(x);
</span><span> while x<>0 do
</span><span> begin
</span><span> p:=p*abs(x);
</span><span> read(x);
</span><span> end;
</span><span> write('N = '); readln(n);
</span><span> rez:=exp((1/n)*ln(p));
</span><span> writeln('корень ',N,' -ой степени из ',p,' = ',rez);
</span><span>end.
</span><span>
</span>
Не парься,поймешь,это временно)))там свой принцип,спраси у информатички)
3+25+125-36=117 (117-3)=285
8+25+125-36=122 (122-8)=285
12+25+125-36=126 (126-12)=285
но все эти выражения равносильны 114*2.5, т. к. ты сначала прибавляешь задуманное число, а потом его же вычитаешь
КНОПКА КОТОРАЯ ВКЛЮЧАЕТ РЕЖИМ ЗАГЛАВНЫХ БУКВ-CapsLock