Задача 19 Урок 13.1
Primary tabs
Пользователь передает целое положительное число N, выведете на экран последовательность от 1 до N "ёлочкой", например для N=18: 1
2 3
4 5 6
7 8 9 10
11 12 13 14 15
16 17 18
var i,n,k,j: integer; begin writeln('vvedite 4islo N - '); readln(n); k := 1; //simvoli ne perenosya stroku j := 0; //stol`ko viveli s perenosa stroki for i := 1 to n do begin write(i, ' '); j := j + 1; if (j >= k) then begin writeln(); j := 0; k := k + 1; end; end; readln(); end.
- Log in to post comments
- 759 reads