Найдите N-ый член арифметической прогрессии (N>0) c некоторым шагом арифметической...

Question

Найдите N-ый член арифметической прогрессии (N>0) c некоторым шагом арифметической прогрессии d>0 т.е. . Первый член арифметической прогрессии следует ввести с клавиатуры. Если можно с использованием циклов.

Answer 1

СПОСОБ С ЦИКЛАМИ:
Program test ;
Var
d, a, :real;
n, i:integer;
Begin
Write ('введите a1: ');
Readln(a) ;
Write(' введите шаг арифм. прогресии: ');
Readln(d);
Write('введите номер члена арифм. прогресии:');
Readln(n);
For i:=1 to n do a:=a+d;
Writeln(n, ' член арифметической прогресии равен : ', a);
End.
СПОСОБ БЕЗ ЦИКЛОВ:
Program test ;
Var
d, a, :real;
n, i:integer;
Begin
Write ('введите a1: ');
Readln(a) ;
Write(' введите шаг арифм. прогресии: ');
Readln(d);
Write('введите номер члена арифметической прогресии: ');
Readln(n);
Writeln(' ответ: ', a+d*(n-1));
End.