Var
n:integer;
a:real;
begin
writeln('введите число и степень');
readln(a,n);
writeln('степень : ', exp(ln(a)*n));
writeln('корень: ',exp(ln(a)*(1/n)));
end.
2 Мбайт
но могу ошибаться ((
Ответ:
Формула: a*2 + b*2
Объяснение: Умножаем a*2, находим боковые стороны. Затем, умножаем b*2, находим основания. Складываем значения полученные в итоге, и получаем периметр.
// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
begin
var x:=ReadReal('x=');
var s:=0.0;
for var i:=1 to ReadInteger('n=') do s+=sin(i*x);
Writeln('s=',s)
end.
<u><em>Тестовое решение</em></u>
x= 0.543
n= 15
s=2.79048740821036
120, 210, 102, 201 . Один раз можно использовать число?