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

Первый этап. Создание переменных.

Так как количество деталей, выполняемых и в первый час и в каждый следующий нам не известно, то для этого количества понадобится переменная.

Одна для начального количества а, вторая для d:

var a, d: integer;

Второй этап. Присвоение значений переменным.

readln (a, d);

Третий этап. Создание цикла от 1 до 8.

Так как работа продолжается 8 часов, то и цикл должен выполняться 8 раз:

for i:integer : = 1 to 8 do

Четвертый этап. Создание тела цикла.

if (i = 1) then a : = a

else

a : = a + d;

Пятый этап. Вывод результата.

writeln (a);