1.
x=-3 y=-2
x<0 (да)
x<y (да)
x=x+1
y=y/2
x=-2 y=-1
x<0 (да)
x<y (да)
x=x+1
y=y/2
x=-1 y=-0,5
x<0 (да)
x<y (да)
x=x+1
y=y/2
x=0 y=-0,25
x<0 (нет)
x=x-5
y=y+3
x=-5 y=2,75
2.
x=-1 y=4
x<0 (да)
x<y (да)
x=x+1
y=y/2
x=0 y=2
x<0 (нет)
x=x-5
y=y+3
x=-5 y=5
Var
x:real;
Begin
Write('x = ');ReadLn(x);
if x <= -12 then x:=-x*x
else if (-12 < x)and(x < 0) then x:=x*x*x*x
else x:=x-2;
WriteLn('y = ',x);
End.
Var
a,b,c:real;
Begin
Write('a = ');ReadLn(a);
Write('b = ');ReadLn(b);
Write('c = ');ReadLn(c);
if (a<b)abd(b<c) then Write('Верно')
else Write('Неверно')
End.
У меня нет данного словаря. Но это легко.
Считаешь количество строк. Затем количество символов в строке (1 символ = 1 байт).
Перемножаешь.
Смотришь количество страниц.
Перемножаешь количество страниц на количество символов на странице (количество строк* количество символов в одной строке).
Получишь объем словаря в байтах.
Делишь на 1024 - в Кб
Делишь еще на 1024 - в Мб.
1)15:3=5(ел)полученного!
Ответ:5
-2, 8, 18, 28, 38, 48, 58, 68, 78, 88