ПАСКАЛЬ
Дано действительное число Х и целое число N. Вывести N первых
членов геометрической прогрессии и найти сумму ее первых членов, если
первый член Х, а знаменатель (– 8,38).
Задачу необходимо решить в Pascal/
Ответы
Ответ дал:
0
Ответ:
Объяснение:
var
x, q, b, sum:real;
i, n:integer;
begin
writeln('Input x = ');
readln(x);
writeln('Input n = ');
readln(n);
writeln('b[1] = ', x:3:3);
q:=-8.38;
b:=x;
sum:=x;
for i:=2 to n do begin
b:=b*q;
writeln('b[', i, '] = ', b:3:3);
sum:=sum + b;
end;
writeln('Sum = ', sum:3:3);
readln;
end.
Вас заинтересует
1 год назад
2 года назад
7 лет назад
7 лет назад
8 лет назад
8 лет назад