Где ошибка? program asd; var a, b, c, k, n: real; const i=10; j=10; begin n: =10i + 15j; write(n, ''); a: = 0; write(a, ' '); b: = 1; write(b, ' '); for k: =3 to n do begin write(a+b, ' '); c: = b; b: = a + b; a: = c; end; readln end. сама ошибка: free pascal compiler version 2.6.4+dfsg-6 [2015/05/31] for i386 copyright (c) 1993-2014 by florian klaempfl and others target os: linux for i386 compiling prog.pas prog.pas(7, 7) fatal: syntax error, "; " expected but "identifier i" found fatal: compilation aborted error: /usr/bin/ppc386 returned an error exitcode (normal if you did not specify a source file to be compiled)

Для решения данной задачи определим количество итераций цикла. Для этого рассмотрим, как в результате выполнения алгоритма меняется значение переменной x. Начальное значение x = 0.На каждой итерации цикла значение переменной x увеличивается на 1, а после окончания цикла x = 7. Следовательно, всего было выполнено 7 итераций.

Теперь рассмотрим, как изменялось значение переменной p. Начальное значение p = 0. На каждой итерации цикла значение переменной p увеличивается на a. Так как всего было выполнено 7 итераций, то после выполнения цикла p = 0 + 7 · a = 7a. Так как цикл выполняется, пока условие p < 140 истинно, то выход из цикла осуществляется при p > 140.

Поэтому значение переменной a находим из условия 7a ≥ 140.

Отсюда a ≥ 20.

Значит, наименьшее значение переменной a должно принимать значение 20.

Заметим, что каждую итерацию цикла, х увеличивается на 4 при начальном значении 0. Чтобы его значение стало равно 76, потребуется 19 итераций цикла.

Переменная р каждый раз увеличивается на а, пока не станет больше либо равна 415. Тогда произойдёт выход из цикла, поскольку условие станет False. Мы знаем, что в цикле 19 итераций. Следовательно, на 18-ой итерации условие всё ещё было True, а на 19-ой стало False, тогда:

18 · a < 415.

19 · a ≥ 415.

a ≤ 23.05.

a ≥ 21.84.

Наибольшее подходящее число: 22.