Урок 13.1 Задача 21
Primary tabs
Пользователь передает целое положительное число N, выведете на экран последовательность от 1 до N, так чтобы ширина "ёлочки" росла волнами
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 begin k:=0; P:=P+1; end; 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
- 583 reads
vedro-compota
Wed, 03/23/2022 - 21:14
Permalink
k:=0;
-- использовать логический тип.
_____________
матфак вгу и остальная классика =)