<span>var<span>
A, B, C: integer;</span>
begin<span>
write('Введите A, B и C: ');</span><span>
read(A,B,C);</span><span>
writeln('Число B находится между числами A и C - ',((A < B) and (B < C)) or ((A > B) and (B > C)));
</span><span>end<span>.</span></span></span>
1) CD-ROM
2) 1. тактовая частота микропроцессора
<span> 4. объем оперативной памяти</span>
5
program IfElse;
var
x, y: real;
begin
writeln (x,y);
read (x,y);
if x<=2
then y:=sqr(x)+4*x+5
else y:=cos(x)/(sqr(x)+4*x+5);
writeln ('y=', y);
readln;
end;
6
program IfElse;
var
x, y: real;
begin
writeln (x,y);
read (x,y);
if x<=0
then y:=0;
else if (x>0 and x<=1)
then y:=2*x*sin(x)
else y:=sqr(sqr(x));
writeln ('y=', y);
readln;
end;