Var x,y,a,b,h,min,max:real; i:integer;
begin
readln(a,b,h);
x:=a; y:=2*x*x-0.5*x+5;
min:=y; max:=y;
writeln(x:4:1,' ',y:6:2);
for i:=1 to round((b-a)/h) do
begin
x:=x+h;
y:=2*x*x-0.5*x+5;
writeln(x:4:1,' ',y:6:2);
if y<min then min:=y;
if y>max then max:=y;
end;
writeln('min = ',min:6:2,' max = ',max:6:2);
end.
Пример:
-2 2 0.5
<span>-2.0 14.00
-1.5 10.25
-1.0 7.50
-0.5 5.75
0.0 5.00
0.5 5.25
1.0 6.50
1.5 8.75
2.0 12.00
min = 5.00 max = 14.00</span>
Вот как то так получается отрицаем c потом их усножаем на b а после этот результат прибавляем к а
Буквы, Цифры, Стрелки, Ряд F, Настройки
20+15=35₁₀
35:5=7, в остатке 0
7:5=1, в остатке 2
1:5=0, в остатке 1
35₁₀=120₅
Var
a: array[1..20] of integer;
i,x: integer;
Begin
x := 1;
write('Введите 20 чисел для заполнения массива: ');
for i := 1 to 20 do begin
readln(a[i]);
end;
for i := 1 to 20 do begin
if(a[i] mod 2 = 1) and (a[i] mod 3 = 0) then
x := x * a[i];
end;
writeln('Произведение чисел нечетных и кратных 3 = ', x);
End.