Объяснение:
1.
// описание функции, ее можно менять
function func(in_x:real):real;
begin
func:=-2*in_x*in_x*in_x*in_x*in_x + 4;
end;
var
h:real;
x:real;
a, b:real;
count_otr:integer;
begin
writeln('Input a = ');
readln(a);
writeln('Input b = ');
readln(b);
writeln('Input h = ');
readln(h);
count_otr:=0;
x:=a;
while (x <= b) do begin
{writeln('x = ', x:3:3, ' f = ', func(x));}
if (func(x)<0) then count_otr:=count_otr + 1;
x:=x+h;
end;
writeln(count_otr);
readln;
end.
2.
function func(in_x:real):real;
begin
func:=-2*in_x*in_x*in_x*in_x*in_x + 4;
end;
var
h:real;
x:real;
a, b:real;
f_min, x_min:real;
begin
writeln('Input a = ');
readln(a);
writeln('Input b = ');
readln(b);
writeln('Input h = ');
readln(h);
x_min:=a;
f_min:=func(a);
x:=a+h;
while (x <= b) do begin
{writeln('x = ', x:3:3, ' f = ', func(x));}
if (func(x)<f_min) then x_min:=x;
x:=x+h;
end;
writeln('x min = ', x_min:3:3, ', f min = ', func(x_min):3:3);
readln;
end.
program raf105;
var i,j,del:integer;
begin
for i:=10 to 99 do
begin
del:=0;
for j:=1 to i do
begin
if (i mod j)=0
then del:= del+1;
end;
if del=3
then writeln(i);
end;
end.
2)program raf105;
var a,b,c:integer;
x:boolean;
begin
write('Введите число: ');
readln(a);
write('Введите искомую цифру: ');
readln(c);
while a<>0 do
begin
b:= a mod 10;
if x=false
then x:= b=c;
a:= (a-b) div 10;
end;
if x
then writeln('В ведённом числе есть искомая цифра')
else writeln('В ведённом числе нет искомой цифры');
end.
3)a) 2
b) 1
c) 0
d) 1
e) бесконечно
Язык программирования PascalABC
