fkn+antitotal

Задание 8 Урок 11:

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

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

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

Задание 6 Урок 11:

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

Задание 5 Урок 11:

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

Задание 4 Урок 11:

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

var i: integer;
begin
  i := 35;
  while ((i >= 35) and (i <= 117)) do
    begin
        if ((i <= 117) and (i mod 2 = 0)) then
            write(i, ' ');
        if ((i >= 45) and (i <= 99) and (i mod 2 = 1)) then
            write(i, ' ');
        i := i + 1;
    end;

  readln();
end.   

Консоль:

Задание 3 Урок 11:

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

var i: integer;
begin
  i := 35;
  while ((i >= 35) and (i <= 117)) do
    begin
        i := i + 1;
        if (i mod 2 = 1) and (i mod 3 = 0) then
            write(i, ' ');
    end;

  readln();
end.  

Консоль:

39 45 51 57 63 69 75 81 87 93 99 105 111 117

Задание 2 Урок 11:

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

Задание 1 Урок 11:

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

var a: integer;
begin
  a := 1;
  while (a <= 15) do
    begin
        write('Введите целое число: ');
        readln(a);
        writeln(a + 7);
    end;

  writeln('Цикл завершён.');
  readln();
end.   

Консоль:

Задание 1 Урок 10.2:

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

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 оставьте без изменений).

Задание 7 Урок 10.1:

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

var i: integer;
begin

  for i := 1 to 100 do
    if (i mod 7 = 0) then
        write(i, ' ');

  readln();
end.   

Консоль:

7 14 21 28 35 42 49 56 63 70 77 84 91 98