fkn+antitotal

11. While

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

11. While

{Пользователь вводит в числа последовательно три произвольных целых числа.
Заведите три переменных и сохраните эти числа в эти переменные.
Пользовательский ввод обрабатывайте в цикле.
Примечание: в одном витке цикла должен быть только 1 readln()}

11. While

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

11. While

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

11. While

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

11. While

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

11. While

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

11. While

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

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

// консоль 39 45 51 57 63 69 75 81 87 93 99 105 111 117

11. While

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

10.2 Break

Модицифируйте код:

var i:integer;
begin
  for i:=1 to 10 do
  begin
     writeln(777);
     break;
  end;
  readln();
end.   

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