Задача 19 Урок 13.1
Primary tabs
Задача 19 Урок 13.1Пользователь передает целое положительное число N, выведете на экран последовательность от 1 до N "ёлочкой", например для N=18:
1
2 3
4 5 6
7 8 9 10
11 12 13 14 15
16 17 18
ПРИМЕЧАНИЕ: эту задачу можно решить, как вложенными циклами, так и вообще одним циклом (что более изящно).
Решите указанными двумя способами.
Вариант с двумя циклами
var a, i, j, count: integer; begin a:= 18;//число введенной пользователем j:= 0;//количество символов в строке count:= 1;// счетчик i:= 1; while (i <= a) do begin while (j < count) do begin if (i <= a) then begin write(i, ' '); i:= i + 1; j:= j + 1; end; end; writeln(); j:= 0; count:= count + 1; end; readln(); end.
Вариант с одним циклом
var a, i, j, count: integer; begin a:= 28;//число введенной пользователем j:= 0;//количество символов в строке count:= 1;// счетчик i:= 1; while (i <= a) do begin write(i, ' '); i:= i + 1; j:= j + 1; if (j = count) then begin writeln(); count:= count + 1; j:= 0; end; end; readln(); end.
- Log in to post comments
- 551 reads