Question

В первый час работы рабочий изготавливает а деталей, за каждый последующий час - на d деталей больше, чем за предыдущий. Разработайте программу, которая подсчитывает, сколько деталей изготовил рабочий за k часов работы. ПОМОГИТЕ ,ПОЖАЛУЙСТА ,НУЖНО СДЕЛАТЬ ДО ЗАВТРА

Answer 1

//PascalABC.Net 3.2
begin
var a:=readinteger('a =');
var d:=readinteger('d =');
var sum:=0;
for var i:=0 to readinteger('k =')-1 do
sum+=a+i*d;
write (sum);
end.