fkn+antitotal

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

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

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

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

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

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

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

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

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

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

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

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

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

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

var i: integer;
begin
readln(i);
while (i<>0) do
begin
    if i<15 then
        writeln(i+7);
        readln(i);
    if i>15 then 
        break;
end;
end.

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

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

var a:integer;

begin
  a:=35;
  while a<118 do
  begin
  if((a mod 2=1)and (a mod 3=0)) then write(a,' ');
  a:=a+1;
  end;
end.  

Консоль:

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

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

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

var a:integer;
begin
  a:=1;
  while a<=15 do
  begin
    writeln('Vvedite celoe chislo: ');
    readln(a);
    if(a>15) then break; //без этой проверки цикл один раз выполнинться при а>15
    writeln(a+7);
  end;
  readln();
end.  

Консоль: