fkn+antitotal

http://fkn.ktu10.com/?q=node/8697

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

http://fkn.ktu10.com/?q=node/8697

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

http://fkn.ktu10.com/?q=node/8697

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

Задача 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.  

http://fkn.ktu10.com/?q=node/8697

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

http://fkn.ktu10.com/?q=node/8697

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

http://fkn.ktu10.com/?q=node/8697

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

1 2 3 4 5
1 2 3 4 5
}

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

http://fkn.ktu10.com/?q=node/8697

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

program task7_lesson13_1;
var n, i : integer;
begin
  writeln('Enter number more then 0 :');
  readln(n);
  if n <= 0 then
     writeln('ERROR')
  else
        for i := 1 to n do
           if ((i mod 2) = 0) then
           write(i, ' ');

  readln();
end.

http://fkn.ktu10.com/?q=node/8697

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

program task6_lesson13_1;
var n, i : integer;
begin
  writeln('Enter number more then 0 :');
  readln(n);
  if n <= 0 then
     writeln('ERROR')
  else
        for i := 1 to n do
              write(i, ' ');
  readln();
end.

http://fkn.ktu10.com/?q=node/8697

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