Розв'яжіть в зошиті задачі з коментарями. Задача 1. Бітова частота звукового файла дорівнює 128 кбіт/с. Час тривалості файла 3 хв 10 с. Визначіть обсяг файла. Яку кількість подібних файлів можна записати на флешку об'ємом 16GB? Задача 2. Розрахувати яку кількість кадрів містить відео в нестисненому вигляді об'ємом 10, 2 МБ при стандартній швидкості відтворення, якщо розмір статичного зображення кадру 800 на 600 пікселів, а колір кожного пікселя кодується 2 байтами.

// PascalABC.NET 3.2, сборка 1389 от 01.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var s:=ReadlnString('Вводите:');
  if s=s.Where(s->s in ['0'..'7']).JoinIntoString then begin
    var n:BigInteger=0;
    var p:Biginteger:=1;
    for var i:=s.Length downto 1 do begin
      n:=n+(s[i].ToDigit)*p;
      p*=8
      end;
    if n mod 5=0 then
      Writeln('Текст является записью восьмеричного числа, кратного 5')
      else Writeln('Текст является записью восьмеричного числа, не кратного 5')
    end
  else Writeln('Текст не является записью восьмеричного числа')
end.

Пример
Вводите: 26343553
Текст является записью восьмеричного числа, кратного 5

Сначала код без комментариев:

Var
S:longint;
i:integer;
A:byte;

Begin
S:=0;
Repeat
   Read(A);
   if (A mod 2 <> 0)and(A mod 7 = 0) then S:=S+A;
Until A = 0;
WriteLn('S = ',S);
End.

Теперь объяснение каждой строки:

Var
S:longint;
i:integer;
A:byte; // В эту переменную будет вводится число с клавиатуры. Тип Byte может принимать значения от 0 до 255. Поэтому его как раз хватит.

Begin
S:=0; // Тут будет храниться сумма, поэтому переменную следует сперва обнулить.

Repeat // далее начинается цикл
   Read(A); // эта команда каждый раз считывает с клавы число, и записывает его в переменную A.

   if (A mod 2 <> 0)and(A mod 7 = 0) then S:=S+A; //тут проверяется 2 условия, и если они выполняются - к переменной S прибавляется значение переменной А
   1 условие: число нечётно, то есть остаток от деления его на 2 не равен нулю (A mod 2 <>0)
   2 условие: Число кратно 7, то есть делится без остатка на 7, то есть остаток от деления равен нулю (A mod 7 = 0)

Until A = 0; // Цикл повторяется до тех пор, пока введённое с клавы число не будет равно нулю (A = 0)

WriteLn('S = ',S); // Тут выводится искомая сумма
End.