Задача 21 Урок 13.1
Primary tabs
Задача 21 Урок 13.1
Пользователь передает целое положительное число N, выведете на экран последовательность от 1 до N, так чтобы ширина "ёлочки" росла волнами. Например, для N=49 получим:
var N, M, i, a, b: integer; flag: boolean; begin a := 1; b := 0; M := 2; writeln('vvedite chislo N'); readln(N); for i:=1 to N do begin write(i, ' '); inc(b); if (a=M) AND flag then begin flag := false; inc(M); end else if (a=1) AND Not flag then flag := true; if (b=a) then begin b := 0; writeln(); if flag then inc(a) else dec(a); end; end; readln(); end.
- Log in to post comments
- 390 reads