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