fkn+antitotal

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

Получите первую и последнюю цифры числа 15 с помощью оперций div и mod (решается без цикла)

var i, a, b:integer;
  begin
    i:=15;
    a:=i div 10;
    b:=i mod 10;
    writeln(a,'  ', b);
    readln();
  end.

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

Вывести на экран все числа от 4 до 100 с шагом 4

var i:integer;
  begin
    i:=4;
    while i<101 do
      begin
        writeln(i);
        i:=i+4;
      end;
  readln();
  end.  

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

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

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

Пользователь вводит последовательно три произвольных целых числа. Заведите три переменных и сохраните эти числа в эти переменные. Пользовательский ввод обрабатывайте в цикле.

var i, k, a, b, c:integer;
  begin
    i:=0;
    while i<3 do
      begin
        readln(k);
        if (i=0) then
          a:=k
        else if (i=1) then
          b:=k
        else
          c:=k;
        i:=i+1;
      end;
    writeln(a, '   ', b,'   ',c);
    readln();
  end.

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

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

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

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

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

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

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

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

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

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

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

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

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

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