в промежутке [10;20] поменять местами четные и нечетные значения pascal

В промежутке [10;20] поменять местами четные и нечетные значения pascal

Задать свой вопрос
1 ответ
Vari:byte;begin  for i := 11 to 19 do    if odd(i) then    write(i, ' ',i-1,' ');end.

Если я верно понял задание..
Вера
там где vari отступи от i то есть: var i
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт