fkn+antitotal

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

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

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

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

var a:integer;
begin
  readln(a);
  if ((a mod 2)=0) then
    begin
      while ((a mod 2)=0) do
        begin
          a:=a div 2;
          writeln(a);
        end;
    end else
        writeln('Error');
      readln();
    end.

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

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

var a:integer;
begin
  readln(a);
  while not(a=0) do
    begin
      if ((a mod 2)=0) then
        writeln('Chetnoe')
      else
        writeln('Nechet');
      readln(a);
    end;
  readln();
end.

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

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

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

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

var a, b, M, N:integer;
begin
  readln(M);
  readln(N);
  for a:=1 to M do
    begin
      for b:=1 to N do
        write(b,' ');
      writeln();
    end;
  readln();
end. 

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

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

1 2 3 4 5
1 2 3 4 5

var a, b:integer;
begin
  for a:=1 to 2 do
    begin
      for b:=1 to 5 do
        write(b,' ');
      writeln();
    end;
  readln();
end.

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

Модифицируйте предыдущую задачу так, чтобы в случае, если число удовлетворяет требованиям (целое, положительное), то на экран выводились четные числа.

var i, j: integer;
  begin
    readln(i);
    while i>=1 do
      begin
        for j:=1 to i do
          if ((j mod 2)=0) then
            writeln(j);
        readln(i);
      end;
    writeln('Error');
    readln();
  end.

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

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

var i, j: integer;
  begin
    readln(i);
    while i>=1 do
      begin
        for j:=1 to i do
          writeln(j);
        readln(i);
      end;
    writeln('Error');
    readln();
  end.

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

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

Урок 13.1 Задача 4

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