Подготовительная задача для "счет"
У вас есть число от 1 до 9, вывести его в представлении как счетах со сдвинутыми костями (всего десять костей на спице):
если ноль, то все кости справа:
---++++++++++
если три, то значащая часть слева, а все отстальное справа:
Предварительная справка: настоящие счеты выглядят как-то так (кости, с помощью которых отсчитывают число разрядов, нанизаны на спицы):
В некоем виртуальном пространстве есть виртуальные, опять же, ASCII-счеты, с 7-ю спицами по 10 костяшек на каждой, в сброшенном состоянии (условный ноль) они выглядят так:
Составьте программу, которая выводит на экран прямоугольный флаг N×M вида (используйте циклы repeat):
- - - - - -
- - - - - -
- - - - - -
- - - - - -
program task_1_lesson_13_2;
var m, n: integer;
begin
n := 1;
m := 1;
repeat
repeat
write('- ');
m += 1;
until (m > 6);
writeln();
m := 1;
n +=1;
until (n > 4);
readln();
end.
Пользователь передает целые положительные число N и M, выведете на экран последовательность от 1 до N, так чтобы ширина "ёлочки" увеличивалась до M чисел, то уменьшалась до 1. Например, для M=3 и N=19 получим:
1
2 3
4 5 6 -- максимум три числа
7 8
9
10 11
12 13 14 -- снова три числа
15 16
17
18 19.....