<em>6)(7*sqr(m)*sqr(m)+3*sqrt(4*x+2*sqr(x)))/abs(2*m+x)</em>
<em>7)12/sqrt(b)+sqrt(b+sqr(c)*c)+1
_______________________________________________</em>
Все в одной
=ЕСЛИ(A3 < -1; 1/A3; ЕСЛИ(ABS(A3)<=1; 1; EXP(A3-1)))
три отдельно
=ЕСЛИ(A3 < -1; 1/A3; "-")
=ЕСЛИ(ABS(A3)<=1; 1; "-")
=ЕСЛИ(A3> 1;EXP(A3-1); "-")
Var a:integer;
begin
readln(a);
if a mod 2=0 then a:=a*a
else a:=a*a*a;
writeln('a = ',a);
end.
Пример:
18
<span>a = 324</span>
<span><span><span>
<span>
</span></span></span></span><span><span><span>
<span>
Свойства файла
</span></span><span>
Имя файла </span></span></span>word<span><span>
</span>
тип </span>Текстовый документ<span><span>
</span>
приложение </span>Microsoft Office Word<span><span>
</span>размер </span><span>36 МБ</span><span><span><span>
</span><span> Дата создания
</span></span><span>20.02.2017
</span></span>
var
a, b : real;
begin
read (a, b);
write (trunc (a * b));
end.
var
a : integer;
begin
read (a);
write (frac (a / 10));
end.
г)
var
a, b : real;
begin
read (a, b);
write (round (a + b));
end.
d)
var
a, b : integer;
begin
read (a, b);
write (a div b);
end.
e)
var
a : integer;
begin
read (a);
write (a div 1000);
end.
ж)
var
a : longint;
begin
read (a);
write (a div 24 + 1);
end.
з)
var
k : integer;
begin
read (k);
write (k div 7 + 1);
end.
и)
var
k : integer;
begin
read (k);
write (k div 60, ':', k mod 60);
end.