Задание 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 counter_i,counter_z,line_break,n : integer; procedure string_x(var i,z: integer); begin write(i, ' '); i += 1; z += 1; end; begin line_break := 1; counter_i := 1; counter_z := 0; write('Введите N и нажмите ENTER: '); readln(n); repeat string_x(counter_i,counter_z); if (counter_z = line_break) then begin writeln(); line_break += 1; counter_z := 0; end; until (counter_i > n); readln(); end.
- Log in to post comments
- 1997 reads
vedro-compota
Sun, 11/22/2020 - 17:02
Permalink
решение засчитано. Но лучше
решение засчитано. Но лучше использовать for
_____________
матфак вгу и остальная классика =)