fkn+antitotal

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

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

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

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

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

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

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

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

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

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

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

var a, b, i:integer;
  begin
    readln(a);
    readln(b);
    if (a>b) then
      for i:=b to a do
        write (i,' ')
    else
      for i:=b downto a do
        write (i,' ');
    readln();
  end.

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

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

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



var x, i:integer;
  begin
    x:=0;
    for i:=1 to 100 do
        begin
             x:=x+1;
             if (x=7) then
                begin
                  writeln(i);
                  x:=0;
             end;
        end;
    readln();
  end.

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

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

var i:integer;
  begin
    for i:=35 to 117 do
        begin
             if (i>45) and (i<99) and ((i mod 2) > 0) then
                writeln (i)
             else if ((i mod 3) = 0) then
                writeln(i);
        end;
    readln();
  end. 

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

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

var i: integer;
  begin
    for i:=35 to 117 do
        begin
             if ((i mod 2)>0) then
                writeln(i, '   ');
             if (i>=45) and (i<=99) and ((i mod 2)=0) then
                     writeln('     ',i);
         end;
  readln();
  end. 

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

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

var i: integer;
  begin
    for i:=35 to 117 do
        if ((i mod 2)>0) and ((i mod 3) = 0) then
           writeln(i);
  readln();

  end. 

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

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

var i, x:integer;
  begin
    readln(x);
    if (x>100) then
       for i:=x downto 1 do
           writeln(i)
    else
        for i:=1 to x do
            writeln(i);
    readln();
  end.