Составить программу перебора значений величины k от 1 до 30 и вычисления значения функции.

[fd43434]

Составить программу перебора значений величины k от 1 до 30 и вычисления значения функции.

[digitalis]

Задача, похоже, из творчества психбольных. В каких пределах x изменяется? И что это будет за значение функции y = неопределено при k, скажем, = 1 ?
Язык программирования значения не имеет ?
Тогда лови:

  for i := 1 to 30 do
    if (i=3) or (i=5) then y := 'Sin (x) + 2'
    else  if (i=10) or (i=15) then y := 'Sin (x)/Cos(x) + Sin (x) * Sin (x)'
    else  if (i=20)  then y := 'Cos(x*x)'
    else y := 'Неопределено' ;

Решение ничуть не менее бредовое, чем задание.
Очень хотелось бы взглянуть на мудреца, который бы смог присвоить игреку неопределенное значение. Поэтому я его определил как строку