Задача на паскале. Пожалуйста, пишите всю!
В первый час работы рабочий изготавливает а деталей, за каждый последующий час - на d деталей больше, чем за предыдущий. Разработайте программу, которая подсчитает, сколько деталей изготовил рабочий за k часов работы.
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
