fkn+antitotal

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

Пользователь передает целое положительное число N, выведете на экран последовательность из единиц в количестве N "ёлочкой", например для N=18
1
1 1
1 1 1
1 1 1 1
1 1 1 1 1
1 1 1

Один цикл:

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

Модифицируйте решение предыдущей задачи, так, чтобы длина возрастающего фрагмента каждый раз увеличивалась на единицу (начиная с двух):
ПРИМЕЧАНИЕ: эту задачу можно решить, как вложенными циклами, так и вообще одним циклом (что более изящно), при этом решение одним циклом можно сделать, как используя делимость нацело (для определения момента вывода тройки), так и не используя.
Решите всеми тремя способами.

Два цикла:

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

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

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

Пользователь вводит целое положительное число N большее или равное 8, если оно не соответствует этим критериям (то есть не является положительным и большим или равным 8), выведете сообщение об ошибке, в противном случае выведите на экран все числа последовательности, не большие N.
Например, для N=20 получим результат: 8 10 3 12 14 3 16 18 3 20

Два цикла:

• Какое высшее образование лучше в преспективе для программиста - прикладное или фундаментальное? Что разумнее учить в ВУЗе - физику или изучать языки программирования/писать код "как на работе"?
  Ответьте в нескольких предложениях
• Перечислите основные качества программиста, которые полезны в работе (на ваш взгляд). Кратко прокомментируйте почему они важны
• Какое качество программиста можно назвать главным, если брать ежедневную работу? Почему?
  Ответьте в нескольких предложениях

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

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

var a,b:integer;
begin
  a:=1;
  repeat
    b:=1;
    while (b<=9) do
    begin
      writeln (a,':',b,'=',a div b,' ');
      b+=1;
    end;
    writeln();
    a+=1;
  until a>9;
  readln();
end. 

Вывод консоли:

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

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

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

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

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

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

var a:integer;
begin
  repeat
    writeln ('vvedite chislo');
    readln(a);
      if (a mod 2)=0 then
         writeln('chetnoe')
      else writeln(' ne chetnoe');
  until a=0;
  readln();
end.

Вывод консоли: