Простейший цикл, вычислить значение суммы с точностью 2 знака после запятой - Pascal ABC

  1. Даны целые числа а и N. Вычислить 1/a+1/pow(a,2)+1/pow(a,3)+1/pow(a,n) с точностью 2 знака после запятой. Ребят я написал код вот: Что тут неправильно помогите


textual

Код к задаче: «Простейший цикл, вычислить значение суммы с точностью 2 знака после запятой - Pascal ABC»

var a,n,i:integer;
    sum:real;
begin
writeln('Введите a=');
readln(a);
if a=0 then
 begin
  write('Сумма не определенп, деление на 0');
  exit
 end; 
writeln('Введите n=');
readln(n);
sum:=0;
for i:=1 to n do
sum := sum+1/power(a,i);
writeln(sum:0:2);
end.

СДЕЛАЙТЕ РЕПОСТ

10   голосов, оценка 3.900 из 5



Похожие ответы
  1. Помогите, пожалуйста, нарисовать забор в паскале, с помощью цикла)

  1. Подскажите пожалуйста, как там индексы должны меняться, чтобы можно было это количество подсчитывать, записывая результат в какую нибудь переменную?

  1. Здравствуйте! Подскажите пожалуйста как составить примитивные одинарный/двумерный массивы 10 на интервале от 1 до 100, и найти max/min элементы полученных массивов???  

  1. Дано целое число N (N > 0). Используя один цикл, найти сумму 1!+2!+3!+...+N!