Урок 10.1 Задача 5
Primary tabs
Пользователь вводит целое число, если оно больше 100, то выведите на экран все числа от этого числа до 1, иначе же все числа от 1 до этого числа.
Решение:
var i,a:integer; begin readln(a); if a>100 then for i:=a downto 1 do writeln(i, ' ') else for i:=1 to a do writeln(i, ' '); readln(); end.
Консоль:
15 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
- Log in to post comments
- 375 reads