Задача 5 Урок 13.1
Primary tabs
{13.1 — 5 Пользователь вводит первое целое число-ограничитель m.
А затем начинает вводить целые числа по одному, пока не введёт число большее числа-ограничителя.
Если очередное целое число больше 1, то в ответ на каждое такое число программа должна
выводить все целые числа от единицы до этого числа.}
var a,m,i: integer; begin a:=1; writeln('write limiter num '); readln(m); while (a < m) do begin writeln('write other num '); readln(a); if (a>0) then for i:=1 to a do write(i, ' ') else for i:=-1 downto a do write(i, ' '); writeln(); end; writeln('over'); readln(); end.
//write limiter num //99 //write other num //8 //1 2 3 4 5 6 7 8 //write other num //-8 //-1 -2 -3 -4 -5 -6 -7 -8 //write other num //101 //1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 //over
- Log in to post comments
- 1171 reads
vedro-compota
Sat, 05/15/2021 - 16:46
Permalink
проверьте соответствие
проверьте соответствие условию
_____________
матфак вгу и остальная классика =)