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