Задача 2. Урок 10.1.
Primary tabs
Пользователь вводит два целых числа, выведите на экран все числа между ними, причем:
-Если первое больше второго то в порядке возрастания, пример консоли:
1 5 ответ: 1 2 3 4 5
Иначе в порядке убывания, пример консоли:
5 3 ответ: 5 4 3
Проверить решение для пар значений:
10 20
-- должны увидеть все числа от 10 до 20, и для:
20 10
-- все числа от 20 до 10 в обратном порядке
var i,a,b:integer; begin writeln('Vvedite dva tselyh chisla'); readln(a); readln(b); if (a>b) then for i:=b to a do write(i,' ') else if (a<b) then for i:=b downto a do write(i,' '); readln(); end.
Консоль:
1.
Vvedite dva tselyh chisla 20 10 10 11 12 13 14 15 16 17 18 19 20
2.
Vvedite dva tselyh chisla 10 20 20 19 18 17 16 15 14 13 12 11 10
- Log in to post comments
- 470 reads