Задача 5 Урок 13.1
Primary tabs
1 Пользователь вводит первое целое число-ограничитель m. А затем начинает вводить целые числа по одному, пока не введёт число большее числа-ограничителя.
Если очередное целое число больше 1, то в ответ на каждое такое число программа должна выводить все целые числа от единицы до этого числа.
Примечание: это задача на вложенные циклы, в качестве внешнего надо использовать while, а в качестве внутреннего можно использовать или for или while
var i, c, m, n: integer; begin i := 1; writeln ('vvedite ogranichitel') ; readln (m); repeat writeln ('vvedite chislo'); readln (n); c := 1; while (c<n) do begin if (c mod 2)=0 then write (c,' '); c+=1; end; writeln(); until (n >= m); writeln('End'); readln(); end.
Вывод консоли:
vvedite ogranichitel 10 vvedite chislo 9 2 4 6 8 vvedite chislo 11 2 4 6 8 10 End
- Log in to post comments
- 43 reads