fkn+antitotal

Из чего состоит PDF файл (что влияет на размер)

1. Основной текст/контент
2. Встроенные шрифты Embedded Fonts (встроенные шрифты)
3. Картинки
4. Закладки, ссылки, аннотации
5. Всякие данные, связанные с самим форматом: Document overhead and various low level elements such as extended graphics states, structure info and etc.
6. PDF формы (да, там могут быть заполняемые формы))
7. Прикрепленные файлы

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

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

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

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

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

var a:integer;
begin
  for a:= 35 to 117 do
   begin
     if((a >= 35) AND (a <= 117)
        AND ((a mod 3) = 0)) then
            write(a, ' ')
     else
       if(( a >= 45) AND (a <=99)
          AND ((a mod 2) = 1)) then
              write(a, ' ')
   end;
  readln();
end.   

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

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

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

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

var a:integer;
begin
  for a:= 35 to 117 do
      if ((a mod 3 = 0)) then
           write(a, ' ');
  readln();
end.    

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

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

var i, a:integer;
begin
  writeln('Введите целое число: ');
  readln(a);
  if (a > 100) then
     for i:=a downto 1 do
         write(i, ' ')
  else
     for i:=1 to a do
         write(i, ' ');
  readln();
end. 

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

Пользователь вводит целое число, если оно больше единицы, то выведите на экран все целые числа от этого числа до единицы (в обратном порядке), которые делятся на 5 без остатка. Иначе (если введённое пользователем число не больше единицы) сообщите об ошибке.

Задача 1 Урок 10.1:

Выведите на экран, все четные числа от 35 до 64.

program project1;
var i:integer;
begin
  for i:= 35 to 65 do
   if ((i mod 2) = 0) then
    write(i, ' ');
  readln();
end.   

Когда движок выполняет задачу, которая очень короткая - что гарантирует что клик не совпадет с процессом обработки этой задачи и не будет потерян? Значит по-идее должен быть какой-то механизм устаревания. Т.е. есть некая отдельная очередь генерации событий и если очередь задач слишком долго выполняет текущую макрозадачу, то в очереди генерации событий устаревшие события просто удаляются, так и не генерируясь

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