fkn+antitotal

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

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

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

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

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

1

var i: integer;
begin
 for i := 35 to 117 do
    if(( i mod 2) = 0) then
      writeln( 'i = ', i);
 for i := 45 to 99 do
    if (( i mod 2) = 1)then
      writeln( 'i = ', i);
 readln();
end.  

2

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

.

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

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

var i, a: integer;
begin
 writeln('vvedite celoe chislo');
 readln(a);
   if (a > 100)then
      for i := a downto 1 do
        writeln( 'i = ', i)
   else
      for i := 1 to a do
        writeln ('i = ', i);
 readln();
end.

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

var i, a: integer;
begin
 writeln('vvedite celoe chislo');
 readln(a);
   if (a > 1)then
     begin
      for i := a downto 1 do
        if(( i mod 5) = 0) then
         writeln( 'i = ', i);
     end
    else
      writeln('oshibka');
 readln();
end. 

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

var i: integer;
begin
  for i := 35 to 64 do
    if(( i mod 2) = 0) then
       writeln( 'i = ', i);
   readln();
end. 

Задача №15 из главы 15

Дан массив длиной N (не более 100 элементов), состоящий из случайно выбранных чисел из диапазона от 0 до k, где 0≤k Найдите в этом массиве длину самого короткого фрагмента, который содержит все числа от от 0 до k.
Например:
Для N = 6, k=2:
202211 длина=4
Для N = 10, k=2:
2022110012 длина=3
Для N = 15, k=3:
202233002303210 длина=4
Для N = 7, k=2:
0100020 длина=5

Урок 15 (Решенная задача номер 15)

Дан массив длиной N (не более 100 элементов), состоящий из случайно выбранных чисел из диапазона от 0 до k, где 0≤k Найдите в этом массиве длину самого короткого фрагмента, который содержит все числа от от 0 до k.

Урок 15 (Решенная задача номер 14)

Дан массив длиной N (не более 100 элементов). Проверить, что в этом массиве на отрезке индексов m до n ( 1≤m