4 да я знаю я это самастаятельную прохадил
If (x>=-5) and (x<5) then label1.caption
(Принадлежит') else Label1.caption ('Не
принадлежит');
Х=1 Принадлежит
8мегабит= 8000000 бит/с:8бит(байт)=1000000байт/с=1Мбайт/с
Соответственно 8с.
var c, x: integer;
begin
read(c);
x := c div 100 mod 10 + 10 * (c div 1000) +
100 * (c mod 10) + 1000 * (c div 10 mod 10);
write(x)
<span>end.</span>