fkn+antitotal

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

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

M := 3;
N := 15;

Получим:

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

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

6
3

А для 8:

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

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

program task12;
var   a,i:integer;
begin
  repeat
    writeln('vvedite chislo');
    readln(a);
    if (a=0) then
      break
    else
    begin
      if (a mod 2=0) then
        writeln('Chet')
      else
        writeln('NeChet');
    end;
  until (a=0);
  readln();
end.

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

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

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

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

program task10;
var i,j,M,N,a,b: integer;
begin
  writeln ('Vvedide M and N');
  readln (M);
  readln (N);
  for j:=1 to N do
  begin
    for i:=1 to M do
      write(i,' ');
    writeln();
  end;
  readln()
end.

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

Есть исходный код:

var
  i,m:integer;
begin
  i:=1;
  m:=1;
  repeat
    repeat
      write('# ');
      m:=m+1;
    until(m=13);
    i:=i+1;
    writeln();
  until(i=9);
  readln();
end.

в нем сделана попытка вывести квадрат символов # размерами 13 на 9.
Но цикл оказывается бесконечным, разберитесь почему (напишите текстовое описание причины) и исправьте ошибку в коде, ответьте на вопросы:

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

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

1 2 3 4 5
1 2 3 4 5

program task8;
var i,j: integer;
begin
  for j:=1 to 2 do
  begin
    for i:=1 to 5 do
      write(i,' ');
    writeln();
  end;
  readln()
end.     

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

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

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

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

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

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