Написать программу, вычисляющую значение функции у = f(x): см. фото была бы очень благодарна! Free Pascal IDE, 8 класс.

   Решение уравнений онлайн

там можно решать

program z1;

var x,y:real;

begin

write('x = ');

readln(x);

if x>7 then write ('y = ',1/(x*x-4))

else write('y = ',3*x-9)

end.

Summa1. анализ 1. переменные s, i с целыми числовыми значениями. 2. начало кода 3. переменной s присваивается значение 0. 4. цикл. условие: при значении i от 1 до 5. действие: присвоить переменной s значение, увеличенное на i. 5. вывод значения переменной s. 6. конец кода summa2. анализ 1. переменные s, i с целыми числовыми значениями. 2. начало кода 3. переменной s присваивается значение 0, переменной i - значение 1. 4. цикл. условие: до тех пор, пока i меньше или равно 5. действие: увеличить значение переменной s на і, значение переменной і - на 1. 5. вывод значения переменной s. 6. конец кода summa3. анализ 1. переменные s, i с целыми числовыми значениями. 2. начало кода 3. переменной s присваивается значение 0, переменной i - значение 1. 4. цикл. условие: пока i не станет больше 5. действие: увеличить значение переменной s на і, значение і - на 1. 5. вывод значения переменной s. 6. конец кода