fkn+antitotal

Задача 4 урок 13.2

У вас есть число от 1 до 9, вывести его в представлении как счетах со сдвинутыми костями (всего десять костей на спице)

Задача 3 урок 13.2

Составьте программу, которая выводит на экран прямоугольный флаг N×M вида (с рамкой по краям):
1 + + + + + +
2 + - - - - +
3 + - - - - +
4 + + + + + +

var m,n,i,j: integer;
begin
m:=6;
n:=4;
for i:=1 to n do
begin
    for j:=1 to m do
    begin
        if (i=1) or (j=1) then write('* ')
        else if (i=n) or (j=m) then write ('* ')
        else write('- ');
    end;
    writeln();
end;
end.

Задача 2 урок 13.2

Составьте программу, которая выводит на экран прямоугольный флаг N×M вида (c чередованием плюсов и минусов в строках, используйте циклы while).

Задача 1 урок 13.2

Составьте программу, которая выводит на экран прямоугольный флаг N×M вида (используйте циклы repeat):

var m,n: integer;
begin
m:=6;
n:=4;
repeat
    repeat
        write('- ');
        m-=1;
    until(m<1);
    m:=6;
    n-=1;
    writeln();
until(n<1);
end.

Задача 21 урок 13.1

Пользователь передает целое положительное число N, выведете на экран последовательность от 1 до N, так чтобы ширина "ёлочки" росла волнами.

Задача 20 урок 13.1

Пользователь передает целые положительные число N и M, выведете на экран последовательность от 1 до N, так чтобы ширина "ёлочки" увеличивалась до M чисел, то уменьшалась до 1.

Задача 19 урок 13.1

Модифицируйте предыдущий вывод "ёлочкой" так, чтобы в каждой нечетной строке выводились только четные числа, а в каждой четной только нечетные.

Do you trust .... to execute code and wish to enable it now? (writes "allow-plugins" to composer.json

Задача 18 урок 13.1

Пользователь передает целое положительное число N, выведете на экран последовательность от 1 до N "ёлочкой".

var i,a,b,n:integer;
begin
readln(n);
a:=1;
b:=1;
while (b<n) do
begin
    for i:=1 to a do
    begin
        write(b,' ');
        if (b<n) then b:=b+1;
            if (b>=n) then break;
    end;
    a:=a+1;
    writeln();
end;
end.

Задача 5 Урок 12.1:

Решите с помощью цикла repeat/until:
Выведите на экран, все четные числа от 35 до 117 и нечетные числа, делящиеся на 7 и 3 нацело и при этом лежащие в диапазоне от 45 до 99.
Указание: сначала можно решить задачу двумя циклами, но потом перепишите с использованием одного цикла, в теле которого составьте логическое выражение, описывающее подходящие числа (используйте логические операции).