fkn+antitotal

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

#консультация
В ближайшее время наши занятия на выходных (последнее время по воскресеньям), будут проходить по такому уточненному расписанию:

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

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

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

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

var i: integer;
begin
  for i:= 1 to 100 do
      if ((i mod 7) = 0) then
      writeln(i);

readln();
end.