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

ПОМОГИТЕ ПОЖАЛУЙСТА!!
нужно написать программу в Паскале!
только там функция такая y=ax^2+bx+c

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

Var
min,max,a,b,x,y,p,q,i:integer;
begin
   writeln(Введите  p, q);
   readln(p,q);
       writeln(Введите a,b);
       readln(a,b);  
min:=32000;max:=-32000;         
     for i:=p+1 to q do             
            begin                   
               y:=a*sqr(i)+b*i +i;                 
               writeln(y: ,y);                                 
                      if y                          min:=y;                                 
                      if y>max then                                     
                           max:=y;             
             end;         
writeln;writeln(min ,min,  max: ,max);
end.