Uses crt;
var
n,f,p,s:integer;
begin
textbackground(15);
textcolor(1);
clrscr;
writeln('введите сколько книг по програмированию ');
readln(p);
f:=p*4;
s:=f-12;
n:=f+s+p;
writeln('всего ',n,' книг');
end.
1.Sqrt(Power(x,3)+ Power (3,x))
Sqr(cos(sqr(x)))
sqr(1+x)
(sqr(x)+3*c)/(2*x)
2.(-b+ \sqrt{ x^{2} } -4ac)/2a
a/b(c+d) -(a-b)/b/c+ 1* 10^{-8} - 8
Var
A,B,C,D:integer;
Begin
Write('Введите четыре целых числа: ');ReadLn(A,B,C,D);
if A < B then A:=B;
if A < C then A:=C;
if A < D then A:=D;
WriteLn('Max = ',A);
End.
Program z10;
var a,b:real;
Begin
a:=1;b:=0;
while a<1024 do
begin
a:=a*2;
b:=sqrt(a+b);
end;
write(b);
<span>end.
2)
Program z10;
var w,j,p,i,k:longint;
x,s:real;
Begin
read(x);
s:=0;k:=10;
for i:=1 to k do
begin
p:=1;w:=3*i-1;
for j:=1 to w do
begin
p:=p*j;
end;
s:=s+x/p;
end;
write(s);
<span>end.
2-это 4</span></span>
<!DOCTYPE html><html><head> <meta charset="UTF-8"> <title>Заголовок страницы</title></head><body> <h1>Заголовок страницы</h1> <table border="1" style="width: 60%;"> <tr><td><img src="image.png" alt="Изображение"></td></tr> <tr><td><img src="image.png" alt="Изображение"></td></tr> <tr><td><img src="image.png" alt="Изображение"></td></tr> <tr><td><img src="image.png" alt="Изображение"></td></tr> <tr><td><img src="image.png" alt="Изображение"></td></tr> <tr><td><img src="image.png" alt="Изображение"></td></tr> <tr><td><img src="image.png" alt="Изображение"></td></tr> <tr><td><img src="image.png" alt="Изображение"></td></tr> <tr><td><img src="image.png" alt="Изображение"></td></tr> <tr><td><img src="image.png" alt="Изображение"></td></tr> <tr><td><img src="image.png" alt="Изображение"></td></tr> <tr><td><img src="image.png" alt="Изображение"></td></tr> <tr><td><img src="image.png" alt="Изображение"></td></tr> </table></body><span></html></span>