Задача на паскале. Пожалуйста, пишите всю!

В первый час работы рабочий изготавливает а деталей, за каждый последующий час - на d деталей больше, чем за предыдущий. Разработайте программу, которая подсчитает, сколько деталей изготовил рабочий за k часов работы.

Var A,d,k : integer;Function Detali(dd,kk : Integer) : Integer;Begin If kk>0 then Detali:=dd+Detali(dd+d,kk-1) else Detali:=0;end;Begin Readln(A,d,k); Writeln(Detali(A,k));end.

только боюсь препод будет придираться не типу данных, а к реализации кода через рекурсию... )

Вот в этом вся загвоздка. Нужно решать так, как предложил оратор выше, но вот составление формул - не мой конек.

ну тогда ждём "оратора выше", пока он исправит свой код.

подожди, уже забыл =(

Фильм случаем не "Вспомнить все"?

var a,k,i,d,m:integer; {m - запоминает значение a для конечной прибавки..}begin Writeln('За первый час - '); Readln(a); Writeln('За каждый последующий - '); Readln(d); Writeln('Сколько часов работал рабочий?'); Readln(k); m:=a; for i:=1 to k-1 do beginm:=m+d; a:=a+m;end;Writeln('Рабочий изготовил ',a,' деталей')End.

оно самое =(

Надеюсь модераторы смогут перенести код в "ответы"

var a,k,i,d,m:integer; {m - запоминает значение a для конечной прибавки..}begin Writeln('За первый час - '); Readln(a); Writeln('За каждый последующий - '); Readln(d); Writeln('Сколько часов работал рабочий?'); Readln(k); m:=a; for i:=1 to k-1 do beginm:=m+d; a:=a+m;end;Writeln('Рабочий изготовил ',a,' деталей')

Const  A = 10;  d = 2;Var k : integer;Function Detali(dd,kk : Integer) : Integer;Begin  If kk>0 then Detali:=dd+Detali(dd+d,kk-1) else Detali:=0;end;Begin  Readln(k);  Writeln(Detali(A,k));end.