Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
FuNTowNToPPlay4ik
16.03.2020 15:26 •
Информатика
Даны два целых числа a и в. выведите все числа от a до b включительно, в порядке возрастания, если a < b, или в порядке убывания в противном случае
Показать ответ
Ответ:
Alexader2352
01.07.2020 22:15
Var a,b:integer;
begin
readln (a,b);
If a>b then
for a:=a-1 downto b+1 do
writeln (a)
else
for a:=a+1 to b-1 do
writeln (a);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
skripniklenok13
19.04.2023 07:06
№67 разгадайте кроссворд система объектов 1.система входящая в состав другой системы. 2.появление у системы новых признаков,которыми не обладал ни один из её элементов...
даша3549
19.04.2023 07:06
Вчем была основная трудность при чтении египетских иероглифов?...
olgagavrikova31
19.11.2020 04:54
Составьте программу,которая в одномерном массиве размерностью 11(элементы массива случайные числа из промежутка от -12 до 8) подсчитывает сумму элементов меньше...
danilhgg52
06.05.2022 03:54
Информатика 9Класс Ветвление в Паскале с 11 вариантом...
MrsDrew
02.09.2021 14:22
Сколько цветов (N) насчитывается в палитре, если глубина цвета ( i ) равна 3?1)22)63)8...
генж
02.09.2021 14:22
Напишите наименьшее целое число х, для которого истинно высказывание: (х 888) И НЕ (х нечетное)...
tasyasoloveva24
12.10.2021 15:09
По python (часы-2). с начала суток часовая стрелка повернулась на угол в α градусов. определите на какой угол повернулась минутная стрелка с начала последнего часа....
flymisflymis
29.10.2021 11:58
Нужен эпиграф на тему любовь в жизни онегина ,татьяны и автора...
атпрр
29.10.2021 11:58
Втрапеции cdef cd=ef. точки м, n, p, q - середины сторон cd, de, ef, fc соответственно. определите вид четырехугольника mnpq. надо с решением варианты 1) параллелограмм,...
lcjewfyjozo075
29.10.2021 11:58
Что означают цвета и животные на гербах?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
readln (a,b);
If a>b then
for a:=a-1 downto b+1 do
writeln (a)
else
for a:=a+1 to b-1 do
writeln (a);
end.