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