Var
i : Integer;
begin
for i := 10 to 99 do
if (i div 10 - i mod 10 = 1) or (i mod 10 - i div 10 = 1) then <span>Writeln(i);
</span> Readln;
<span>end.</span>
D1)прямая горизонтальная линия
2) любой из этих рисунков
1- 10тичная
2-16тиричная
3-двоичная
3х=120
х=40
за 40 секунд 1 Мбайт
4 за 160 секунд
или 2 мин 40 секунд