Разработать программу для решения задачи: в первый час работы рабочий изготавливает a деталей, за каждый последующий час - на d деталей больше, чем предыдущий. Разработайте программу, которая подсчитает, сколько деталей изготовил рабочий за 8 часов работы. Зафиксируйте свои действия на каждом из этапов решения этой задачи.

Question

Емилия

20 января, 03:09

+4

Ответы (1)

Знаете ответ?

Лексана · Answer 1

Var

a, d, i:integer;

begin

readln (a, d) ;

for i:=1 to 8 do

begin

writeln ('in ', i,' hour = ', a) ;

a:=a+d;

end;

end;