Урок 13.1 Задача 5
Primary tabs
Пользователь вводит первое целое число-ограничитель m. А затем начинает вводить целые числа по одному, пока не введёт число большее числа-ограничителя.
Если очередное целое число больше 1, то в ответ на каждое такое число программа должна выводить все целые числа от единицы до этого числа.
var i, j:integer; begin readln(i); readln(j); while j<i do begin for j:=j downto 1 do writeln(j); writeln(); readln(j); end; readln(); end.
- Log in to post comments
- 410 reads