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