F=a*(x*cos(2*x))^(1/2)
при х=1, косинус < 0, корень из отрицательного числа не существует
при х=3 ,а a=1 f(x,a) = 1,69720678173023
при х=3 ,а a=2 f(x,a) = 3,39441356346047
при х=3 ,а a=3 f(x,a) = 5,0916203451907
при х=3 ,а a=4 f(x,a) = 6,78882712692094
при х=3 ,а a=5 f(x,a) = 8,48603390865117
при х=3 ,а a=6 f(x,a) = 10,1832406903814
при х=3 ,а a=7 f(x,a) = 11,8804474721116
при х=6 ,а a=1 f(x,a) = 2,25013860737399
при х=6 ,а a=2 f(x,a) = 4,50027721474798
при х=6 ,а a=3 f(x,a) = 6,75041582212197
при х=6 ,а a=4 f(x,a) = 9,00055442949595
при х=6 ,а a=5 f(x,a) = 11,2506930368699
при х=6 ,а a=6 f(x,a) = 13,5008316442439
при х=6 ,а a=7 f(x,a) = 15,7509702516179
при х=7 ,а a=1 f(x,a) = 0,978345811793987
при х=7 ,а a=2 f(x,a) = 1,95669162358797
при х=7 ,а a=3 f(x,a) = 2,93503743538196
при х=7 ,а a=4 f(x,a) = 3,91338324717595
при х=7 ,а a=5 f(x,a) = 4,89172905896993
при х=7 ,а a=6 f(x,a) = 5,87007487076392
при х=7 ,а a=7 f(x,a) = 6,84842068255791<span>
</span>
<html>
<head>
<titile>Моя страница</title>
<meta charset="utf-8">
</head>
<body>
<p>
Бла Бла
</p>
<hr width="100">
<div>
Бла2 Бла2
<img src="img.png">
</div>
</body>
</html>
uses graphABC;
<span>procedure paravoz(x,y:integer);
var i,x1:integer;
begin
setpencolor(clBlack);
setbrushcolor(clBlack);
x1:=x+11;
for i:=1 to 5 do
begin
circle(x1,y+83,11);
x1:=x1+20
end;
rectangle(x,y+35,x+80,y+75);
lineto(x+33,y+35);
lineto(x+38,y+10);
lineto(x+15,y+10);
lineto(x+22,y+35);
floodfill(x+25,y+30,clBlack);
setpencolor(clGreen);
setbrushcolor(clGreen);
rectangle(x+70,y,x+115,y+75);
end;
var x,y:integer;
begin
x:=windowwidth-350;
y:=200;
lockdrawing;
repeat
clearwindow;
paravoz(x,y);
sleep(100);
redraw;
until x<=5;
end<span>.</span></span>
Var s:string; p:integer;
begin
writeln('Введите строку:');
readln(s);
p:=pos('ба',s);
if p>0
then
begin
while p>0 do begin delete(s,p,2); insert('ро',s,p); p:=pos('ба',s); end;
writeln(s);
end
else writeln('В строке нет слогов "ба"');
end.
Пример:
<span>Введите строку:
база
роза</span>