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