Задача 22 Урок 13.1
Primary tabs
Пользователь передает целое положительное число N, выведете на экран последовательность от 1 до N, так чтобы ширина "ёлочки" росла волнами. Например, для N=49 получим:
var N, c1, c2, c3, i: integer; w: boolean; begin writeln('Введите целое положительное число N:'); readln(N); i := 1; c1 := 1; c2 := 1; c3 := 2; w := true; while i <= N do begin write(i, ' '); if c1 > c2 then c2 += 1 else begin writeln(); c2 := 1; if w then c1 += 1 else c1 -= 1; end; if c1 = c3 then w := false; if c1 = 1 then begin w := true; c3 += 1; end; i += 1; end; readln(); end.
- Log in to post comments
- 992 reads