fkn+antitotal

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

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

Решение тремя вариантами:

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

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

Решение

program U11z11;

var i: integer;

begin
   i:=1;
   while i<1000 do
   begin
      if i mod 4 =0 then
         write (i, ' ');
            i:=i+1;
   end;

 readln();

end.

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

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

Решение

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

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

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

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

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

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

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

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

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

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

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

Решение

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

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

Решение двумя циклами

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

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

Решение

program U11z3;

  var i: integer;

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