Var x:integer;beginreadln(x);write(4*sqr(x)+sqrt(x-2));end.
<span>// PascalABC.NET 3.3
// Cборка 1590 от 03.12.2017</span>
1)
begin
var x:=ReadInteger('Введите x->');
if x<3 then Writeln('y=',x+4)
else
if x>3 then Writeln('y=',x*x);
end.
Пример:
Введите x-> 2
y=6
2)
begin
var x:=ReadReal('Введите x->');
if x<4 then Writeln('y=',x*x:0:2)
else
if (x>4) and (x<5) then Writeln('y=',x+5:0:2)
else Writeln('y=',x*x*x:0:2);
end.
Пример:
Введите x-> 5
y=125.00
V=i*x*y; i=8 (2^8=256)
X и Y =10
V=10*10*8=800бит
Адаптер — аппаратное устройство или программный компонент, преобразующий передаваемые данные из одного представления в другое. Представляемыми данными может быть, к примеру, сообщение, отправляемое между разными объектами в приложении, или пакет, передаваемый по сети.<span>В современных персональных компьютерах почти все</span><span> </span><span>периферийные устройства</span><span> </span><span>используют адаптер для связи с системной</span><span> </span><span>шиной, например:</span><span>видеокарта, адаптер дисплея — используется для передачи сигнала к монитору;</span><span>адаптеры универсальной последовательной шины среди прочего для принтеров, клавиатур или «мыши»</span><span>сетевой адаптер, требуемый для подключения к любой сети;</span><span>адаптер контроллера для подключения жёсткого диска или других накопителей.</span>
var
n: <em>integer </em>:= 50;
begin
if (n mod 2 = 0) then
dec(n);
while (n >= 1) do
begin
writeln(n);
n -= 2;
end;
<span>end.</span>
