Нужна безотлагательно помощь в решении задачки в Паскаль АБС. Введите два

Нужна безотлагательно помощь в решении задачки в Паскаль Abs. Введите два целых числа А и Б.Выведите все целые числа меж ними в порядке возрастания и убывания.

Задать свой вопрос
1 ответ
Var a,b,i: integer;
begin
  write('числа a и b через пробел: ');  readln(a,b);
  for i:=a+1 to b-1 do write(i,' ');
  writeln;
  for i:=b-1 downto a+1 do write(i,' ');
end.

числа a и b через пробел: 10 21
11 12 13 14 15 16 17 18 19 20 
20 19 18 17 16 15 14 13 12 11

Bridnja Violetta
Выдает ошибку
Vika
Какая ошибка ?
Danka Myslinskij
Границы интервала входят в вывод, либо нет? Если входят, то изменяете строчки for i:=a+1 to b-1 do write(i,' '); на строчку for i:=a to b do write(i,' '); и строчку for i:=b-1 downto a+1 do write(i,' '); на строку for i:=b downto a do write(i,' ');
Margarita Toropchina
Спасибо)
Марина Ждан-Пушкина
Не за что.
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

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

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

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

Войти на сайт