Pascal ABC 2) Разработать алгоритм расчета выражения Ход работы: Вторая задача решается с учётом ОДЗ: знаменатель не должен быть равен нулю, т.е. x^3-x^2+1 0С клавиатуры вводится некоторое значение x, затем проверяетсязнаменатель и в зависимости от того равен он нулю или нет, выдаѐтся сообщение„знаменатель равен нулю‟ или вычисляется значение R. Блок-схема будет носить разветвлѐнный характер. В программе сначала реализуется ввод значения x, затем условный оператор:ifsqr(x) * x - sqr(x) + 1 = 0then writeln(‘знаменатель равен нулю’)else beginr :=(sqr(x) + x -1)/(sqr(x)* x - sqr(x) +1);writeln(r: 6: 2); end;К ветке else относятся два оператора, поэтому они объединяются операторными скобками begin end. Оператором writeln(r: 6: 2) производится форматный вывод вещественного числа r.

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

Нам нужно ввести целочисленные переменные a, d, K и вывести ответ.

Заводим две переменные: s - суммарное количество деталей, изготовленных за первые часы работы, и next - количество деталей, которых рабочий изготовит в следующий час.

Затем в цикле обрабатываем каждый час: увеличиваем s на next и обновляем значение next.

В конце выводим значение s.

Код (Pascal):

var

 a, d, K, i, s, next: integer;

begin

 read(a, d, K);

 s := 0;

 next := a;

 for i := 1 to K do

 begin

   s := s + next;

   next := next + d;

 end;

 write(s)

end.

Пример ввода:

1 1 8

Пример вывода:

36

(Пояснение: 1 + 2 + 3 + 4 + 5 + 6 + 7 + 8 = 36)