Предмет: Информатика,
автор: asik11121147
Pascal
Помогите пожалуйста!!!
Приложения:
![](https://files.topotvet.com/i/20f/20f189f536d1ce8dc5230a37c58e935e.png)
Ответы
Автор ответа:
0
program Project1;
{$APPTYPE CONSOLE}
{$R *.res}
uses System.Math, System.SysUtils;
Var
n, x, k: Integer;
S: Extended;
begin
try
{ TODO -oUser -cConsole Main : Insert code here }
S := 0;
Write('Введите n: ');
Readln(n);
Write('Введите x: ');
Readln(x);
for k := 1 to n do
S := S + (Power(x, Power(k, x)) / k);
Writeln('Сумма = ', S);
except
on E: Exception do
Writeln(E.ClassName, ': ', E.Message);
end;
Readln;
end.
{$APPTYPE CONSOLE}
{$R *.res}
uses System.Math, System.SysUtils;
Var
n, x, k: Integer;
S: Extended;
begin
try
{ TODO -oUser -cConsole Main : Insert code here }
S := 0;
Write('Введите n: ');
Readln(n);
Write('Введите x: ');
Readln(x);
for k := 1 to n do
S := S + (Power(x, Power(k, x)) / k);
Writeln('Сумма = ', S);
except
on E: Exception do
Writeln(E.ClassName, ': ', E.Message);
end;
Readln;
end.
Похожие вопросы
Предмет: Қазақ тiлi,
автор: arnurt013
Предмет: Математика,
автор: ivanovamakinsk
Предмет: Математика,
автор: kggg13vv
Предмет: Химия,
автор: evgesha0501