Ответы
Ответ дал:
0
var
n,i:integer;
a,an,s:real;
begin
Write('Введите a и n: ');
Read(a,n);
s:=0;
an:=1;
for i:=0 to n do
begin
s:=s+(i+1)*an;
an:=an*a
end;
Writeln('Ответ ',s)
end.
Результат выполнения программы
Введите a и n: 2.2 30
Ответ 1036213351740.38
n,i:integer;
a,an,s:real;
begin
Write('Введите a и n: ');
Read(a,n);
s:=0;
an:=1;
for i:=0 to n do
begin
s:=s+(i+1)*an;
an:=an*a
end;
Writeln('Ответ ',s)
end.
Результат выполнения программы
Введите a и n: 2.2 30
Ответ 1036213351740.38
Ответ дал:
0
Замечание: "an" хранит значение "a" в степени, необходимой для выполнения следующего шага.
Ответ дал:
0
Так экономнее, а кроме того, стандартный Паскаль не имеет операции возведения вещественного числа в степень.
Ответ дал:
0
Точнее, в степень, не равную 2.
Похожие вопросы
2 года назад
7 лет назад
7 лет назад
9 лет назад
10 лет назад