fkn+antitotal

Задание 17 Урок 13.1

Модифицируйте решение предыдущей задачи. так чтобы пользователь вводил второе число M, которое отвечало бы за длину возрастающего фрагмента, например для M=4:
8101214четыре числа316182022четыре числа3....3....и т.д.
Заметьте. что в предыдущей задаче M было зафиксировано =2:
810два числа31416два числа3....3....и т.д.

Задание 16 Урок 13.1

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

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

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

Задание 14 Урок 13.1

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

var i, j: integer;
begin
  i := 1;
  while (i <= 9) do
    begin
      for j := 1 to 9 do
        writeln(i, '*', j, '=', i*j, ' ');
      i:=i+1;
    end;
readln();
end.

Задание 13 Урок 13.1

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

Получим:

Задача 1 Урок 10.2

Модицифируйте код, чтобы на 4-ом витке на экран было выведено число 777, а на 5-ом произошел выход из цикла (при этом строчку for i:=1 to 10 оставьте без изменений).

var i:integer;
begin
  for i:=1 to 10 do
  begin
     if (i=4) then
       writeln(777);
     if (i=5) then
       break;
  end;

  readln();
end.       

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

Перебирите в цикле все числа от 1 до 100, выведите на экран каждое 7-е число.

var i: integer;
begin
  for i:=1 to 100 do
    if ((i mod 7)=0) then
      write(i, ' ');
  readln();
end.
               

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

Выведите на экран, все числа делящиеся на 3 из дипазона от 35 до 117 и нечетные числа, лежащие в диапазоне от 45 до 99.

var i: integer;
begin
  for i:=35 to 117 do
    begin
      if (i >= 35) and (i <= 117)
      and ((i mod 3)=0) then
        write(i, ' ')
      else if((i mod 2)=1) then
        write(i, ' ');
    end;
  readln();
end. 

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

Выведите на экран, все четные числа от 35 до 117 и нечетные числа, лежащие в диапазоне от 45 до 99.

var i:integer;
begin
     for i:=35 to 117 do
      begin
           if (i >= 45) and (i <= 99)
            and ((i mod 2)=1) then
             write(i, ' ')
           else
            if ((i mod 2)=0) then
              write(i, ' ');
      end;
readln();
end.

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

Выведите на экран, все нечетные числа, делящиеся на 3 нацело, лежащие в диапазоне от 35 до 117.

var a:integer;
begin
  for a:=35 to 117 do
      if((a mod 3)=0) and ((a mod 2)<>0) then
       writeln(a, ' ');
  readln();
end. 

A 'const' assertions can only be applied to references to enum members, or string, number, boolean, array, or object literals.ts(1355)