fkn+antitotal

Задача 13 Урок 9

Есть программа:

Добавить вложенную страницу

Предположим у вас уже есть какая-то иерархия страниц (обычно выводится в слева в инспекторе), тогда делаем так:

Задание 10 Урок 13.1

M раз выведете на экран числа от 1 до N с помощью вложенных циклов. Так чтобы в консоли было:

var i, j,m,n: integer;
begin
  i := 1; 
  writeln('vvedite n');
  readln (n);
  writeln('vvedite m');
  readln (m);
  repeat
    j := 1;
    while (j<=n) do
    begin
      write( j, ' ');
      j:=j+1; 
    end;
    writeln();
    i:=i+1;
  until (i > m);  
end.

Консоль:

Задание 8 Урок 13.1

Выведете на экран числа от 1 до 5 два раза с помощью вложенных циклов. Так чтобы в консоли было:
1 2 3 4 5
1 2 3 4 5

var i, j: integer;
begin
  i := 1; 
  repeat 
    j := 1;
    while (j<=5) do 
    begin
      write( j, ' ');
      j:=j+1; 
    end;
    writeln();
    i:=i+1;
  until (i > 2);  
end.

Консоль:

1 2 3 4 5 
1 2 3 4 5 

Задание 7 Урок 13.1

Пользователь вводит целое положительное число, если оно не соответствует критериям (то есть не является положительным), выведете сообщение об ошибке, в противном случае выведете на экран все четные числа от 1 до введённого пользователем.

Задание 6 Урок 13.1

Пользователь вводит целое положительное число, если оно не соответствует критериям (то есть не является положительным), выведете сообщение об ошибке, в противном случае выведете на экран все числа от 1 до введённого пользователем.

Что уже должно быть

Для изучения этого урока, у вас:

Задание 5 Урок 13

Пользователь вводит первое целое число-ограничитель m. А затем начинает вводить целые числа по одному, пока не введёт число большее числа-ограничителя.
Если очередное целое число больше 1, то в ответ на каждое такое число программа должна выводить все целые числа от единицы до этого числа.
Примечание: это задача на вложенные циклы, в качестве внешнего надо использовать while, а в качестве внутреннего можно использовать или for или while.

Задание 4 Урок 13.1

Пользователь вводит числа до тех пор пока не введёт число меньшее 1. В ответ на каждое введённое им число выводите на экран все нечетные числа от 1 до это числа, при этом делящиеся на 5. Если же пользователь ввел число меньшее 1, то завершите программу.

Задание 2 Урок 13.1

Выведите на экран таблицу умножения используя только циклы вида while.

var i, j: integer;
begin
  i := 1;
  while (i<=9) do
  begin
    j := 1; 
    while (j<=9) do 
    begin
      writeln(i, '*', j, '=', i*j, ' ');
      j:=j+1; 
    end;
    i:=i+1; 
  end;
end.

Консоль: