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

В первый час работы, рабочий изготавливает a деталей, за последующий час на d деталей больше, чем за предыдущий. Разработайте программу, которая подсчитает, сколько деталей изготовил рабочий за k часов работы.
Гость
Ответ(ы) на вопрос:
Гость
var a,d,k,i,ak,s:integer; begin writeln('a, d, k:'); readln(a,d,k); s:=0; ak:=a-d; for i:=1 to k do  begin  ak:=ak+d;  s:=s+ak;  end; writeln('s = ',s); end. Пример: a, d, k: 10 2 5 s = 70
Не нашли ответ?
Ответить на вопрос
Похожие вопросы