Найти сумму членов бесконечно убывающей арифметической прогрессии - Turbo Pascal

Формулировка задачи:

Найти сумму членов бесконечно убывающей арифметической прогрессии, если известны ее первый член a1 и знаменатель q. Сделал вот, так (преподаватель сказал переделать):
program 2.1;
uses crt;
var
a1,q,s:double;
begin
write('a1 = ');
readln(a1);
write('q = ');
readln(q);
if(abs(q)>=1) then writeln('Последовательность не убывающая!')
else
  begin
  s:=a1/(1-q);
  writeln('S = ',s:0:4);
  end;
readkey;
end.
Помогите переделать. Заранее спасибо.


textual

Код к задаче: «Найти сумму членов бесконечно убывающей арифметической прогрессии - Turbo Pascal»

uses crt;
var
a1,q,s:double;
begin
write('a1 = ');
readln(a1);
write('q = ');
readln(q);
if (abs(q)<1) then
  begin
  s:=a1/(1-q);
  writeln('S = ',s:0:4);
  end
else writeln('Последовательность не убывающая');
readkey;
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


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

13   голосов, оценка 3.692 из 5

Источник
Похожие ответы