fkn+antitotal

Задание 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

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

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

var i: integer;
begin

  for i := 35 to 117 do
    if (i mod 3 = 0) then
        write(i, ' ')
    else
      if (i >= 45) and (i <= 99) and (i mod 2 = 1) then
          write(i, ' ');

  readln();
end.  

Консоль:

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

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

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

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

var i: integer;
begin

  for i := 35 to 117 do
    if ((i mod 2 = 1) and (i mod 3 = 0)) then
        write(i, ' ');

  readln();
end.   

Консоль:

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

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

Пользователь вводит целое число, если оно больше 100, то выведите на экран все числа от этого числа до 1, иначе же все числа от 1 до этого числа.
Подсказка: в каждой ветке условного оператора тут должно быть по одному циклу.

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

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

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

Выведите на экран, все четные числа от 35 до 64.

var i: integer;
begin

  for i := 35 to 64 do
    if (i mod 2 = 1) then
        write(i, ' ');

  readln();
end.    

Консоль:

35 37 39 41 43 45 47 49 51 53 55 57 59 61 63