В первый час работы, рабочий изготавливает 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
Не нашли ответ?
Похожие вопросы