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

Сравните два числа, если первое больше второго, то выведите на экран "12". (здесь нужно использовать неполную форму условного оператора)

var  a, b: integer;
begin
  writeln('Enter the first number');
  readln(a);
  writeln('Enter the second number');
  readln(b);
  if (a > b) then
     writeln(12);
  readln();
end. 

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

Пользователь передает целое положительное число N, выведете на экран последовательность от 1 до N, так чтобы ширина "ёлочки" росла волнами. Например, для N=49 получим:

Fatal error: Uncaught PDOException: SQLSTATE[HY000] [2002] No such file or directory in

Возможное решение

Проблема была в том, что служба mysql просто не работала помог перезапуск

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

Задание: визуализируйте на счетах введенное пользователем число.
Примеры:
Пользователь вводит: 7
Получаем:
---++++++++++
---++++++++++
---++++++++++
---++++++++++
---++++++++++
---++++++++++
+++++++---+++

Задача 3 Урок 13.2

Составьте программу, которая выводит на экран прямоугольный флаг N×M вида (с рамкой по краям):

+ + + + + +
+ - - - - - +
+ - - - - - +
+ + + + + +

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

Пользователь передает целое положительное число N, выведете на экран последовательность от 1 до N, так чтобы ширина "ёлочки" росла волнами. Например, для N=49 получим:
123--сначала до двух456789--потом до трёх101112--возвращаемся к одному131415161718192021--тут уже четыре2223242526--снова убывает 2728293031323334353637383940414243444546474849

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

Пользователь передает целые положительные число N и M, выведете на экран последовательность от 1 до N, так чтобы ширина "ёлочки" увеличивалась до M чисел, то уменьшалась до 1. Например, для M=3 и N=25 получим:
123456--максимум три числа7591017181920--снова три числа2122232425.....

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

Модифицируйте предыдущий вывод "ёлочкой" так, чтобы в каждой нечетной строке выводились только четные числа, а в каждой четной только нечетные, например для N=17:
3
4 6
7 9
12 14
15 17

задача 7 урок 10:

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

//вариант решения 1
var i:integer;
begin
    for i:=1 to 100 do
        if (i mod 7) = 0  then
          write(i, ' ');

  readln();
end.  

А вот если бы цикл начинался не с 1 но задание было бы прежним, (иными словами нужно найти не кратное 7 а именно каждое 7е число в любом ряду) подойдет второй вариант решения:

задача 6 урок 10:

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

var i:integer;
begin
    for i:=35 to 117 do
        if ((i mod 3) = 0) OR (((i mod 2) = 1) AND ((i > 44) AND (i < 100)))then
          write(i, ' ');

  readln();
end.