fkn+antitotal

Задача 15 Урок 13.1:

С помощью вложенных циклов выведите на экран таблицу деления чисел от 1 до 9.

var a,b:integer;
begin
  a:=1;
  repeat
    b:=1;
    while (b<=9) do
    begin
      writeln (a,':',b,'=',a div b,' ');
      b+=1;
    end;
    writeln();
    a+=1;
  until a>9;
  readln();
end. 

Вывод консоли:

Задача 14 Урок 13.1:

Пользователь вводит два целых числа M и N, если M четное, делайте то же, что и в предыдущей задаче, а если нечётное, то умножайте M в цикле на 3 до тех пор пока результат не станет больше N (и выводите каждый из промежуточных результатов умножения на экран), например для:
M := 3;
N := 15;
Получим:
9
27

Задача 13 Урок 13.1:

Пользователь вводит четное целое число (если нечетное сообщите об ошибке). Делите это число в цикле на 2 до тех пор пока оно делится, выводя каждый промежуточный результат, например для 12 в консоли получим:
6
3

Задача 12 Урок 13.1:

Пользователь вводит числа до тех пор пока им не будет передан ноль. В ответ на каждое число программа должна сообщать чётное оно или нет.

var a:integer;
begin
  repeat
    writeln ('vvedite chislo');
    readln(a);
      if (a mod 2)=0 then
         writeln('chetnoe')
      else writeln(' ne chetnoe');
  until a=0;
  readln();
end.

Вывод консоли:

Задача 11 Урок 13.1:

Модифицируйте предыдущую задачу так, чтобы в каждой чётной (той, у которой номер чётный) строке выводилось N символов, а в каждой нечетной N/2 символов (сделайте проверку того, что N/2 больше нуля)

Задача 10 Урок 13.1:

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

var i, j,m,n: integer;
begin
  i := 1;
  writeln ('vvedite ogranichitel') ;
  readln (m);
  writeln ('vvedite chislo');
  readln (n);
  repeat
    j := 1;
    while (j<=n) do
      begin
        write(j, ' ');
        j:=j+1;
      end;
    writeln();
    i:=i+1;
  until (i > m);
  readln();
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);  
  readln();
end.

Вывод консоли:

Задача 7 Урок 13.1:

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

Задача 6 Урок 13.1:

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

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

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