Задача 5 Урок 13.1
Primary tabs
Пользователь вводит первое целое число-ограничитель m. А затем начинает вводить целые числа по одному, пока не введёт число большее числа-ограничителя.
Если очередное целое число больше 1, то в ответ на каждое такое число программа должна выводить все целые числа от единицы до этого числа.
Примечание: это задача на вложенные циклы, в качестве внешнего надо использовать while, а в качестве внутреннего можно использовать или for или while.
var i, m, j: integer; begin write('vvedite chislo: '); readln(m); write('vvedite chislo: '); readln(j); while (m >= j) do begin if (j >= 1) then for i:=1 to j do write(i, ' '); writeln(); write('vvedite chislo: '); readln(j); end; write('konec!'); readln(); end.
КОНСОЛЬ:
vvedite chislo: 20 vvedite chislo: 15 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 vvedite chislo: 21 konec!
- Log in to post comments
- 643 reads