Урок 13.1 Задача 18
Primary tabs
Пользователь передает целое положительное число N, выведете на экран последовательность от 1 до N "ёлочкой"
Одним циклом:
var i, j, M, N: integer; begin readln(N); i:=1; j:=1; M:=1; for i:=1 to N do begin write(i,' '); if (j=M) then begin writeln(); j:=0; M:=M+1; end; j:=j+1; end; readln(); end.</p <blockquote>Вложенные циклы:</blockquote> <pre class="brush: delphi">var i, j, M, N: integer; begin readln(N); i:=1; j:=1; M:=1; repeat for j:=1 to M do begin write(i,' '); if (j=M) then writeln(); i:=i+1; if (i>N) then break; end; M:=M+1 until i>N; readln(); end.
- Log in to post comments
- 429 reads