Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

НАЙДИТЕ НАИБОЛЬШЕЕ И НАИМЕНЬШЕЕ ЗНАЧЕНИЕ ФУНКЦИИ У=Х^2-4Х+3 НА ОТРЕЗКЕ [1;3]

Ответ оставил Гость

Var i, min, max: integer;
function f(n: integer):integer;
begin
f:=n*n-4*n+3;
end;
begin
min := f(1);
max := f(1);
for i:=1 to 3 do
begin
if f(i) > max then max := f(i);
if f(i) < min then min := f(i);
end;
writeln(min, , max)
end.