Processing math: 0%

$\newcommand{\eps}{\varepsilon} \newcommand{\RR}{\mathbb{R}} \newcommand{\rd}{\operatorname{d}} \newcommand{\set}[1]{\left\{#1\right\}}$

Решаем задачи Абрамян на Паскале. For17

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

Решение:

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

program For17;

var

A,Rez,Pow:Real;

N, i :Integer;

begin

Write('Введите A: ');

Readln(A);

Write('Введите N: ');

Readln(N);

Rez:=1;

Pow:=1;

For i:=1 to N do

begin

Pow:=Pow*A;

Rez:=Rez+Pow;

end;

Writeln(Rez);

end.

Другие задачи из раздела For можно посмотреть здесь.

Комментарии:

Добавить комментарий Отменить ответ

➤