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