Question

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

Answer 1

Var a,k,i,d,m:integer; {m - запоминает значение a для конечной прибавки..}
begin 
Writeln('За первый час - '); 
Readln(a); 
Writeln('За каждый последующий - '); 
Readln(d); 
Writeln('Сколько часов работал рабочий?'); 
Readln(k); 
k:=k-1; 
m:=a; 
for i:=1 to k do   
a:=a+d; 
Writeln('Рабочий изготовил ',a+m,' деталей')
End.

Answer 2

Const
  A = 10;
  d = 2;
Var k : integer;
Function Detali(dd,kk : Integer) : Integer;
Begin
  If kk>0 then Detali:=dd+Detali(dd+d,kk-1) else Detali:=0;
end;

Begin
  Readln(k);
  Writeln(Detali(A,k));
end.