fkn+antitotal

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

Пользователь вводит последовательно три произвольных целых числа. Заведите три переменных и сохраните эти числа в эти переменные. Пользовательский ввод обрабатывайте в цикле.

Примечание: в одном витке цикла должен быть только 1 readln()

Урок 12.2 Задача 2

Вспомогательная задача (сдавать не обязательно):
Напишите программу, которая выводит на экран ряд чисел с помощью цикла for:

1 5 9 11 15 19 23 27 31 35 39 43

Решение:

var i: integer;
begin
  for i := 1 to 44 do
    begin
      if((i mod 4) = 1) then
      write(i, ' ');
    end;
    readln();
end.

Задача 8 Урок 11

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

Задача 7 Урок 11

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

С использованием if()
С использованием if() и break;

1 вариант:

Задача 6 Урок 11

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

В первом витке цикла все "предыдущие" числа можно считать единицами.

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

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

В первом витке цикла все "предыдущие" числа можно считать единицами.

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

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

Вариант с двумя циклами:

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

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

program Project1;
var i: integer;
begin
  i := 35;
  while ((i >=35) AND (i <= 117)) do
  begin
    if ((i mod 2) <> 0) AND ((i mod 3) = 0) then
      writeln(i, ' ');
    i := i + 1;
  end;
  readln(); // удерживаем консоль
end.      

Задача 2 Урок 11

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

Первое введенное пользователем число можно сложить с единицей.

Подсказка: если не получается решить данную задачу самостоятельно (сначала постарайтесь сами хотя бы минут 20-ть), то посмотрите:

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

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