fkn+antitotal

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

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

begin
writeln('15 div 10 = ', 15 div 10);
writeln('15 mod 10 = ', 15 mod 10);
 readln;
end.               


    
Вывод консоли:
15 div 10 = 1
15 mod 10 = 5
 

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

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

var a:integer;
begin
  a:=4;
  while a<=100 do
    begin
      write(a,' ');
      a+=4;
    end;
   readln();
end.

    
Вывод консоли:
4 8 12 16 20 24 28 32 36 40 44 48 52 56 60 64 68 72 76 80 84 88 92 96 100
 

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

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

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

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

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

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

С использованием if():

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

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

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

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

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

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

С двумя циклами:

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

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

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


Вывод консоли:
39 45 51 57 63 69 75 81 87 93 99 105 111