Даны действительное число A, натуральное число N. Вычислить: 1/а+...+1/a*sqr(2*n)

var i, n, a, p: integer;
begin
writeln(Vvedi N: );
readln(n);
writeln(Vvedi A: );
readln(a);
p := 1;
for i := 0 to sqr(n) do
begin
p := p * (a - n);
n := n * 2;
end;
writeln(p);
readln;
end.

Оцени ответ
Не нашел ответ?

Если ответа нет или он оказался неправильным по предмету Информатика, то попробуй воспользоваться поиском на сайте или задать вопрос самостоятельно.

Найти другие ответы

Загрузить картинку