Доможиров
7 год назад
В первый час работы, рабочий изготавливает a деталей, за последующий час на d деталей больше, чем за предыдущий. Разработайте программу, которая подсчитает, сколько деталей изготовил рабочий за k часов работы.
ОТВЕТЫ
Муромцев
Jul 19, 2019
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
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
233
