Задача 22. Урок 13.1
Primary tabs
Пользователь передает целые положительные число N и M, выведете на экран последовательность от 1 до N, так чтобы ширина "ёлочки" увеличивалась до M чисел, то уменьшалась до 1.
Например, для M=3 и N=19 получим:
1
2 3
4 5 6--максимум три числа
7 8
9
10 11
12 131 4--снова три числа
15 16
17
18 19.....
var n,m,i,c,l:integer; begin l:=1;//длинна очередной строки c:=0;//количество символов очередной строке i:=1;//порядковый номер выводимых в строке символов writeln('Vvedite obschee kolichestvo simvolov n- '); readln(n);//общее количество символов writeln('Vvedite max dlinny stroki m- '); readln(m);//максимально допустимое количество символов в строке for i:=1 to n do begin if (l<=m) then begin write(i,' '); c:=c+1; if l=c then begin writeln(); l:=l+1; c:=0; end; end; end; readln(); end.
Вывод консоли:
Vvedite chislo n- 19 Vvedite chislo m- 3 1 2 3 4 5 6
- Nomad82's blog
- Log in to post comments
- 1691 reads
Comments
Nomad82
Sat, 10/19/2024 - 16:51
Permalink
Вопрос
Не могу запрограммировать так, что-бы следующие строки, после максимального значения m (введенное пользователем, максимально возможное количество символов в одной строке), шли на уменьшение количества символов в последующих строках.