В первый час работы, рабочий изготавливает 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.
Answers & Comments
Verified answer
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