Во Для представления 1 мин фильма на экране монитора с разрешением 1366 x 768 и палитрой из 256 цветов. ​

(см. объяснение)

Объяснение:

Я представлю тебе оригинальные методы решения данных задач, о которых ты наверняка не слышал в школе для твоего общего развития. Все эти программы были протестированы на PascalABC.NET 3.2 сборка 1325 и оказались рабочими.

Задание №17:

//PascalABC.NET 3.2 сборка 1325 можно объявлять переменные в теле программы и сразу их инициализировать

begin

 var k: integer := ReadInteger('Введите число k >>');

 var l: integer := ReadInteger('Введите число l >>');

 var n: integer := ReadInteger('Введите число n >>');

 var m: integer := ReadInteger('Введите число m >>');

 if((l mod k = 0) and (n mod k = 0) and (m mod k = 0)) then writeln('Является!')

 else writeln('Не является!');

end.

Задача №19:

//Уникальность кода в том, что он работает при любом количестве данных чисел. Все зависит от ReadArrReal(n);

begin

 'Введите числа a,b,c через пробел:'.Println;

 var x: array of real := ReadArrReal(3);

 System.Array.Sort(x);

 System.Array.Reverse(x);

 x.Println;

end.

Задача №21:

//Используется тип double для большей точности

begin

 var x: double := ReadReal('Введите число x >>');

 if(x<0) then writeln(4)

   else if(x>1) then writeln(x+7)

     else writeln(x*x+3*x+4);

end.