Задача 5 Урок 14
Primary tabs
Задача 5 Урок 14Пользователь передает целое положительное число N, выведете на экран последовательность от 1 до N "ёлочкой", например для N=17:
1
2 3
4 5 6
7 8 9 10
11 12 13 14
15 16 17
var a, i, j, count: integer; procedure line(d, c:integer); begin while (d < c) do begin if (i <= a) then begin write(i, ' '); i:= i + 1; d:= d + 1; end; end; end; begin a:= 17; j:= 0; count:= 1; i:= 1; while (i <= a) do begin line(j, count); writeln(); j:= 0; count:= count + 1; end; readln(); end.
- Log in to post comments
- 1599 reads
vedro-compota
Sun, 08/29/2021 - 12:13
Permalink
переделать без глобальных
переделать без глобальных
_____________
матфак вгу и остальная классика =)
alterMann
Sun, 08/29/2021 - 22:50
Permalink
Переделал без глобальных
Переделал без глобальных переменных