Рассчитайте объём 1 страницы изображения, если выбраны следующие параметры графики: свыше 16 млн. цветов и разрешение 240 на 160.​

// PascalABC.NET 3.2, сборка 1341 от 20.11.2016
begin
  var a:=ArrRandom(15,-10,30); a.Println;
  var b:=ArrRandom(25,-10,30); b.Println;
  var ma:=a.Where(x->x.IsEven).Max;
  var mb:=b.Where(x->x.IsEven).Max;
  if ma>mb then
    WritelnFormat('Максимум четных 1-го массива {0} больше 2-го {1}',ma,mb)
  else
    if mb>ma then
      WritelnFormat('Максимум четных 1-го массива {0} меньше 2-го {1}',ma,mb)
    else Writeln('Максимумы четных элементов в массивах равны ',ma)
end.

Пример
-2 30 -1 19 16 26 21 24 5 19 -3 28 10 11 -9
14 6 -2 28 26 4 8 -4 -7 28 -4 10 -9 6 29 -10 8 9 26 5 12 23 18 9 20
Максимум четных 1-го массива 30 больше 2-го 28

Windows іске қосу кезінде құлыптау терезесі пайда болады, онда "сіз Қылмыстық кодекстің осындай баптарын бұздыңыз және іс сотқа жіберіледі. Бұған жол бермеу үшін SMS жіберіңіз / шотты толтырыңыз және т.б.". Жақында Мен бұл вирус туралы айтқаным есіңізде ме? Сіз әлеуметтік медиа сайттарына немесе іздеу жүйелеріне кіре алмайсыз. Тағы да, ақша төлеуді сұрайтын терезе пайда болады. Мен бұл туралы тақырыптық мақалада егжей-тегжейлі жаздым. Жүйе сіздің командаларыңызға тез жауап бермейді, қолданбалар баяу ашылады, файлдарды көшіру / жылжыту процедурасы ұзақ уақытқа созылады. ОЖ жүктеу бұрынғыға қарағанда көп уақытты алады. Егер сіз іске қосуға болатын үшінші тарап қосымшаларын орнатпаған болсаңыз, бұл белгі өзекті екенін ескерген жөн. Компьютерді іске қосу кезінде браузер өздігінен ашылады, оның бастапқы беті өзгереді, желілік трафик үнемі жұмсалады (бірақ сіз ештеңе жасамайсыз). Сіздің атыңыздан спам (e-mail және әлеуметтік желі аккаунттары арқылы) жіберіле бастайды. Файлдарды ашқан кезде тінтуірді екі рет басу жұмысын тоқтатады (егер манипулятор жұмыс істесе). Құжаттар, орнатылған қосымшалар және басқа файлдар із-түссіз жоғала бастайды. Бағдарламалық жасақтама бұрын болмаған қателермен басталмайды немесе орындалмайды.