урок 10 задача 2
Primary tabs
Пользователь вводит два целых числа, выведите на экран все числа между ними, причем:
Если первое больше второго то в порядке возрастания, пример консоли:
?
1
2
3
1
5
ответ: 1 2 3 4 5
Иначе в порядке убывания, пример консоли:
?
1
2
3
5
3
ответ: 5 4 3
var a, b, i: integer; begin writeln('Введите два числа не равных друг другу'); readln(a,b); if (a < b) then for i := a to b do write(i, ' ') else for i := a downto b do write(i, ' '); readln; end.
- Log in to post comments
- 186 reads