Урок 13.1 Задача 20
Primary tabs
Пользователь передает целые положительные число N и M, выведете на экран последовательность от 1 до N, так чтобы ширина "ёлочки" увеличивалась до M чисел, то уменьшалась до 1
var i, j, M, N, P, k: integer; begin readln(P); readln(N); i:=1; j:=1; M:=1; k:=0; for i:=1 to N do begin write(i,' '); if (j=M) then begin writeln(); j:=0; if (M=P) then k:=0; if (M=1) then k:=1; if (k=1) then M:=M+1 else M:=M-1; end; j:=j+1; end; readln(); end.
- Log in to post comments
- 487 reads