Question

Составить программу в Паскаль: Ученик в первый день выучил Х английских слов. В каждый следующий день он выучивал на К слов больше, чем в предыдущий. Сколько английских слов он будет знать в N-й день занятий?

Answer 1

var x,k,n,s,i:integer;
begin
writeln('x, k, n:');
readln(x,k,n);
s:=x;
for i:=2 to n do
 begin
 x:=x+k;
 s:=s+x;
 end;
writeln('s = ',s);
end.

Пример:
x, k, n:
10 2 5
s = 70