Помогите, пожалуйста, решить задачу...

Question

Арифметическая прогрессияЗаданы первый и второй элементы арифметической прогрессии. Требуется написать программу, которая вычислит элемент прогрессии по ее номеру.

var v,a,b,c,u:longint;

begin

{assign(input, 'input.txt'); reset(input);

assign(output, 'output.txt'); rewrite(output);}

read(a,b,c);

For u:=1 to c-2 do

begin

v:=v+(b-a);

end;

write(v+b);

end.

Александр C · Accepted Answer

Не совсем понял суть вашей программы, но, мне кажется, тут можно поступить совсем просто. У арифметической прогрессии есть разность d, которую в вашем случае легко задать как

d:=a2-a1

Далее, для вычисления общего члена существует формула

a(n)=a1+d(n-1)

В принципе, можно и не вводить новую переменную d, просто записав формулу общего члена в таком виде:

a:=a1+(a2-a1)*(n-1).

И вся программа уложится в одну строку :)