Урок 13.1 Задача 5
Primary tabs
Пользователь вводит первое целое число-ограничитель m. А затем начинает вводить целые числа по одному, пока не введёт число большее числа-ограничителя.
Если очередное целое число больше 1, то в ответ на каждое такое число программа должна выводить все целые числа от единицы до этого числа.
Примечание: это задача на вложенные циклы, в качестве внешнего надо использовать while, а в качестве внутреннего можно использовать или for или while.
Решение:
var a, b, m : integer; begin writeln('Введите целое число - огронечитель : '); readln(m); while (a <= m) do begin writeln('Введите целое число : '); readln(a); if (a > 1) and (a <= m) then for b := 1 to a do writeln(b, ' '); end; readln(); end.
- Log in to post comments
- 625 reads
vedro-compota
Tue, 06/07/2022 - 19:59
Permalink
засчитано
засчитано
_____________
матфак вгу и остальная классика =)