список учительницы список Марины
Катя Арбузова Марина Яблочкина
Яша Арбузов
Коля Белкин Роберт Щукин
Лена Волкова Сережа Тополев
Дима Иволгин Валя Стрелкина
Валя Стрелкина Дима Иволгин
Серёжа Тополев Коля Белкин Лена Волкова
Роберт Щукин Яша Арбузов
Марина Яблочкина Катя Арбузова
Var
x0,xn,c:real;
x,y,xmax,ymax:real;
begin
writeln('Xнач, Xкон:');
readln(x0,xn);
write('С = '); readln(c);
x:=x0;
xmax:=x; ymax:=x*x-100*x+10;
repeat
x:=x+c;
y:=x*x-100*x+10;
if y>ymax then begin xmax:=x; ymax:=y; end;
until x>=xn;
writeln('xmax = ',xmax,' ymax = ',ymax);
end.
Пример:
Xнач, Xкон:
-10 20
С = 1
xmax = -10 ymax = 1110