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