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