fkn+antitotal

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

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

Примечание: в одном витке цикла должен быть только 1 readln()

Решение:

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

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

Решение:

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

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

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

Решение:

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

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

В первом витке цикла все "предыдущие" числа можно считать единицами.

Решение:

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

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

В первом витке цикла все "предыдущие" числа можно считать единицами.

Решение:

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

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

Решение:

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

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

Решение:

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

Консоль:

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

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

Первое введенное пользователем число можно сложить с единицей.

Решение:

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

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

Решение:

var a:integer;
begin
  a:=1;
  while a<=15 do
  begin
    writeln('vvedite chislo');
    readln(a);
    writeln('Otvet = ',a+7);
  end;
  writeln('Poka');
  readln();
end.

Консоль:

За это могут отвечать стили:

• margin-block-start
• margin-block-end

-- они не отображаются нормально в firefox в списке инспектора, но есть в разделе computed, если поставить галочку "Browser style"

Как выключить

Проще всего назначить для элемента общий сборс откступов:

margin: 0px;

-- такое свойство уберет отступы и сверху и снизу.