fkn+antitotal

Решение задачи 8 из главы 11

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

Срабатывает только при подряд введенных трех отрицательных числах.

Решение задачи 7 из главы 11

7. Пользователь вводит целые числа, в ответ выводите символ #. Если введенное пользователем число равно 22, то завершите цикл не выводя ничего в ответ. Решите эту задачу 2-мя способами:
С использованием if()
С использованием break;

- С использованием if и break:

Решение задачи 6 из главы 11

6. Модификация одной из пред. задач: Пользователь вводит целые числа. Пока он не введёт число большее 15, в ответ на каждое введённое число выводите сумму этого числа и пред-предыдущего введённого им числа, если это число чётное, иначе просто запрашивать новое число. Если же введённое число больше 15, то цикл необходимо завершить.
В первом витке цикла все "предыдущие" числа можно считать единицами.

Решение задачи 5 из главы 11

5. Модификация одной из пред. задач: Пользователь вводит целые числа. Пока он не введёт число большее 15, в ответ на каждое введённое число выводите сумму этого числа и двух предыдущих введённых им чисел (предыдущего и пред-предыдущего), если же введённое число больше 15, то цикл необходимо завершить.
В первом витке цикла все "предыдущие" числа можно считать единицами.

Решение задачи 4 из главы 11

4. Решите с помощью цикла while:
Выведите на экран, все четные числа от 35 до 117 и нечетные числа, лежащие в диапазоне от 45 до 99.

program Project4;
var a: integer;
begin
  a:= 35;
  while ((a >= 35) AND (a <= 117)) do
  begin
    if ((a mod 2) = 0) then
    begin
       write(a, ' ');
       a:=a+1;
    end;
    if ((a >= 45) AND (a <=99) AND ((a mod 2) = 1)) then
         write(a, ' ');
         a:=a+1;
  end;
readln();
end.

Решение задачи 3 из главы 11

3. Решите с помощью цикла while:
Выведите на экран, все нечетные числа, делящиеся на 3 нацело, лежащие в диапазоне от 35 до 117.

program Project3;
var a: integer;
begin
  a:= 35;
  while ((a >= 35) AND (a <= 117)) do
  begin
    if (((a mod 2) = 1) AND ((a mod 3) = 0)) then
       write(a, ' ');
       a:=a+1;
  end;
readln();
end.

Решение задачи 2 из главы 11

2. Пользователь вводит целые числа. Пока он не введёт число большее 15, в ответ на каждое введённое число выводите сумму этого числа и предыдущего введённого им числа, если же введённое число больше 15, то цикл необходимо завершить.
Первое введенное пользователем число можно сложить с единицей.

Решение задачи 1 из главы 11

1. Пользователь вводит целые числа. Пока он не введёт число большее 15, в ответ на каждое введённое число выводите сумму этого числа и числа 7, если же введённое число больше 15, то цикл необходимо завершить.

При работе с докером на линуксе и на винде одновременно (на виндоус был docker-sync) наблюдали проблему с тем, что некий php класс как будто уже был где-то определен:

Cannot declare class .... because the name already in use

на виндоус (git pull не помогал), при этом на линуксе все было нормально:

Появилась гипотеза, что проблема в докер-синке

Причина

Причину не выясняли, что-то со слиянием версий файлов и м.б. работой unison

Решение задачи №6 из главы 13.1

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