//PascalABC.NET 3.3,сборка 1611 от 06.01.2018
//Внимание! Если программа не работает, обновите версию!
begin
var mas:=ReadlnString('Вводите').ToIntegers; mas.println;
var a:=readinteger('Введите число a:');
Writeln('Количество чисел которые меньше а=',mas.Where(t->t<a).Count);
end.
за 30 мин ученик прочитает 160*30 = 4800 символов.
если 1 мисвол кодируется 1 байтом (кодировка Windows), то информационный объем составит 4800байт = 4,7Кб
если 1 символ кодируется 2 байтами (кодировка Unicode), то информационный объем составит 9600байт = 9,4Кб
Var a: array[1..7] of real;
k, n: integer;
begin
readln(k, n);
for i:=1 to 7 do begin
read(a[i]);
if a[i]<>0 then if a[i]>0 then a[i]:=a[i]-a[k] else a[i]:=a[i]-a[n];
write(a[i], ' ');
Ответ:
1)Черви-сами размножаются и захламляют пк
2)Вирусы-маскировщики — Rootkit. Эти вирусы используются для сокрытия вредоносной активности. Они маскируют вредоносные программы, чтобы избежать их обнаружения
3)Шпионы собирают информацию о действиях и поведении пользователя. В основном их интересует информация — адреса, пароли, данные кредитных карт).
4)Аdware
Программы-рекламы
5)Зомби позволяют злоумышленнику управлять компьютером пользователя
6)Winlock-блокирует виндоус и заставляет заплатить деньги
7)Троян он маскируется в других безвредных программах. В основном трояны используются для кражи, изменения или удаления личных данных пользователя. Он не может самостоятельно размножаться.