Вычислить y в зависимости от x,введенного с клавиатуры y=( х2,если х> 0 х+1,если х< =0 2 - вычислить y в зависимости от x,введенного с клавиатуры (12,5*2,если -1< =х< 0 х-1,если х< -1 12х,если х> 0

Первая: var x,y: integer; begin writeln('vvedite x'); readln(x); if x> 0 then   y: =sqr(x) else   y: =x+1; writeln(y); end. вторая  var x: integer; y: real; begin writeln('vvedite x'); readln(x); if (x< 0) and (x> =-1) then   y: =12.5*2 else    if x< -1 then   y: =x-1 else   y: =12*x; writeln(y); end.

1. При вводе числа 15 программа выведет число 4.

2. Наименьшие значения A, при которых программа выведет верный ответ, равны 2 и 3.

3. В программе допущена типичная для начинающих программистов ошибка «смещения кадра»: значение переменной K, необходимое при первом выполнении цикла, присваивается до начала цикла, а значение для следующего оборота цикла вычисляется в конце предыдущего оборота. В результате, при завершении цикла K имеет значение больше, чем нужно. Вторая ошибка – неверный шаг изменения K. «Идеальная» программа решения этой задачи должна выглядеть так (приведён пример на языке Бейсик):

DIM A,S,K AS INTEGER

INPUT A

S = 0

K = −1

WHILE S <= A

K = K + 2

S = S + K*(K+1)

WEND

PRINT K

END

Но по условиям задания менять местами строки нельзя, их можно только исправлять. Поэтому, кроме исправления шага, приходится корректировать значение K при выводе. Пример исправления для языка Паскаль:

Первая ошибка:

k := k+1;

Исправленная строка:

k := k+2

Вторая ошибка:

writeln(k)

Исправленная строка:

writeln(k-2)

В программах на других языках ошибочные строки и их исправления аналогичны.

Незначительной опиской, не влияющей на оценку, следует считать отсутствие знаков и служебных слов после содержательной части исправления.