Задача 5 урок 13.1
Primary tabs
http://fkn.ktu10.com/?q=node/8697
{Пользователь вводит первое целое число-ограничитель m.
А затем начинает вводить целые числа по одному, пока не введёт число большее числа-ограничителя.
Если очередное целое число больше 1,
то в ответ на каждое такое число программа должна выводить все целые числа от единицы до этого числа.
Примечание: это задача на вложенные циклы, в качестве внешнего надо использовать while,
а в качестве внутреннего можно использовать или for или while. }
program task5_lesson13_1; var m, i, j : integer; begin writeln('Enter limit number :'); readln(m); writeln('Enter number smaller then limit ',m); readln(i); while i < m do begin if i > 1 then for j := 1 to i do write(j, ' '); writeln(); writeln('Enter number smaller then limit ',m); readln(i); end; readln(); end.
- Log in to post comments
- 659 reads