fkn+antitotal

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

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

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

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

var a, b, c:integer;
begin
readln(a);
  while (a <= 15) do
        begin
        b := a;
        c := a - 1;
        readln(a);
        writeln(a + b + c);
        end;
readln();
end.  

Решите с помощью цикла while:
Выведите на экран, все четные числа от 35 до 117 и нечетные числа, лежащие в диапазоне от 45 до 99.
Указание: сначала можно решить задачу двумя циклами, но потом перепишите с использованием одного цикла, в теле которого составьте логическое выражение, описывающее подходящие числа (используйте логические операции).

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

var a:integer;
begin
  a:= 35;
  while (a >= 35) and (a < 117) do
        begin
        if ((a mod 2) <> 0) and ((a mod 3) = 0) then
        writeln(a);
        a:= a + 1;
        end;
readln();
end. 

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

var a, b:integer;
begin
readln(a);
  while (a <= 15) do
        begin
        b := a;
        readln(a);
        writeln(a + b);
        end;
readln();
end.

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

var a:integer;
begin
a:= 1;
  while (a <= 15) do
        begin
        writeln(a + 7);
        a := a + 1;
        end;
readln();
end.

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

Пользователь вводит два числа, найдите из них максимальное. (тут всё просто)

program project1;

var
  a, b: integer;

begin
   writeln('Vvedite pervoe chislo: ');
   readln(a);
   writeln('Vvedite vtoroe chislo: ');
   readln(b);
  if (a > b) then
     writeln('Maximalnoe chislo: ', a)
  else
     writeln('Maximalnoe chislo: ', b);

  readln();
end.

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

Даны три целых числа: A, B, C. Проверить истинность высказывания: « Число A и число B больше 17, а C > 7». -- выведите "да", если истинно и "нет" если ложно.

program project1;

var
  a, b, c: integer;

begin
  a:= 20;
  b:= 18;
  c:= 31;
  if ((a > 17) and (b > 17) and (c > 7))then
     writeln('Da')
  else
     writeln('Net');

  readln();
end.