fkn+antitotal

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

Переберите в цикле все числа от 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

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

решение задачи

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

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

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

-------------------------------------------------------------------------------

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

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

решение задачи

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

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

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

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

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

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

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

решение задачи

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

   readln();
end.  

[к оглавлению]

Что это такое

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

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

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

var a: integer;
begin
  a:=35;

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

  readln();
end.

КОНСОЛЬ:

39 45 51 57 63 69 75 81 87 93 99 105 111 117

В терминале

Какие есть варианты

• Разбить файл на отрезки фиксированной длины:
  

  mp3splt -t 15.0 myfile.mp3  

  -- разобьет файл myfile.mp3 на фрагменты по 15 минут каждой.

• Автоматический выбор точек разбивки по "тишине":
  

  mp3splt -s -p th=-50,nt=10 имявашегофайла.mp3

  -- где: