begin Write('Введите значение аргумента х: '); Readln(x); if x > 3.6 then F := 45*x*x+5 else F := 5*x/(10*x*x+1); Writeln('Значение функции равно ',F) end.
Тестовое решение:
Введите значение аргумента х: 2 Значение функции равно 0.24390243902439
Введите значение аргумента х: 4 Значение функции равно 725
x,F:real;
begin
Write('Введите значение аргумента х: ');
Readln(x);
if x > 3.6 then F := 45*x*x+5
else F := 5*x/(10*x*x+1);
Writeln('Значение функции равно ',F)
end.
Тестовое решение:
Введите значение аргумента х: 2
Значение функции равно 0.24390243902439
Введите значение аргумента х: 4
Значение функции равно 725