fkn+antitotal

Урок 13.1

Модифицируйте решение предыдущей задачи, так, чтобы длина возрастающего фрагмента каждый раз увеличивалась на единицу (начиная с двух):
810два числа3101214три числа316182022четыре числа3....3....и т.д.

Один цикл без mod.

Урок 13.1

Модифицируйте решение предыдущей задачи. так чтобы пользователь вводил второе число M, которое отвечало бы за длину возрастающего фрагмента, например для M=4:

8101214четыре числа316182022четыре числа3....3....и т.д

.
Заметьте. что в предыдущей задаче M было зафиксировано =2:

Урок 13.1

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

8 10 3 12 14 3 16 18 3 20 22 3 и т.д.

-- то есть всё начинается с восьмерки, затем число увеличивается на 2, затем выводит тройка и ещё пара увеличенных на 2 чисел и т.д.

Урок 13.1

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

var i, j: integer;

begin
  i := 1;
  j := 1;
  for i := 1 to 9 do
  begin
    repeat
      if ((j mod i) = 0) then
        writeln(j, ':', i, ' = ', j div i);
      j := j + 1;
    until((j/i) > 9);
    j := 1;
    writeln();
  end;
end.

КОНСОЛЬ

Урок 13.1

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

1x1 = 1
1x2 = 2
......

var i, j: integer;

begin
  i := 1;
  j := 1;
  for i := 1 to 9 do
  begin
    repeat
      writeln(i, 'x', j, ' = ', i*j);
      j := j + 1;
    until(j > 9);
    j := 1;
    writeln();
  end;
end.

КОНСОЛЬ

Урок 13.1

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

M := 3;
N := 15;

Получим:

Урок 13.1

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

6
3

А для 8:

Урок 13.1

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

var a: integer;

begin
  writeln('Vvedite chislo');
  readln(a);
  while(a <> 0) do
  begin
    if ((a mod 2) = 0) then
      writeln('chislo chetnoe')
    else
      writeln('chislo nechetnoe');
    writeln('Vvedite chislo');
    readln(a);
  end;
end.

КОНСОЛЬ

Урок 13.1

Модифицируйте предыдущую задачу так, чтобы в каждой чётной (той, у которой номер чётный) строке выводилось N символов, а в каждой нечетной N/2 символов (сделайте проверку того, что N/2 больше нуля).
Предыдущая задача:
M раз выведете на экран числа от 1 до N с помощью вложенных циклов. Так чтобы в консоли было:
11......NN}M раз

Урок 13.1

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

var a, i: integer;

begin
  writeln('Vvedite kolichestvo cifr v stroke');
  readln(a);
  writeln('Vvedite kolichestvo strok');
  readln(i);
  for i := 1 to i do
  begin
    for a := 1 to a do
      write(a, ' ');
    writeln();
  end;
end.

КОНСОЛЬ