Question

19.Вычислить наибольшее и наименьшее значение функции y=3x^2 +x– 4, если на заданном интервале [a,b] x изменяется с шагом 0,1.

Помогите, пожалуйста, решить задачи в паскале!

Answer 1

19.
Program zadacha;
var   
   a,b,y,mi,ma:real;
begin 
   read(a,b); 
   ma:=3*a*a+a-4; 
   mi:=3*b*b+b-4; 
   while a<=b do begin   
      y:=3*a*a+a-4;   
      a:=a+0.1;   
      if y >= ma then ma := y;   
      if y <= mi then mi := y; 
   end; 
   writeln(mi:10:2); 
   writeln(ma:10:2);  
end.


простые числа:
Program zadacha;
var 
   n,i,j,k:integer;
begin
  read(n);
  for i:=2 to n do begin
    k:=0;
    for j:=1 to i do begin
      if i mod j = 0 then k:=k+1;
    end;
    if k = 2 then writeln(i);
  end;
end.

Answer 2

потому что у простых чисел только 2 делителя: 1 и само число.