Var
n:integer;
S,x:real;
Begin
Write('x = ');
ReadLn(x);
Write('n = ');
ReadLn(n);
S:=0;
For n:= 1 to n do
S:=S+Sin(n*x);
WriteLn('S = ',S)
End.
Знаешь, разновидность их бывает разная, например Dr.web. Он перехватывает вирусняки до того как они нанесут вред.
А самый первый антивирус был написан CHK4BOMB и BOMBSQAD позволяли производить анализ загрузочного модуля с помощью контекстного поиска и перехватывать операции записи и форматирования, выполняемые через BIOS. На то время они были очень эффективны и быстро завоевали популярность.
Программа выводит максимальную цифру числа:
Program maxx;
uses crt;
var x,max:integer;
begin
write('введите число x=');readln(x);
max:=0;
while x>0 do
begin
if max<(x mod 10) then max:=(x mod 10);
x:=x div 10
end;
writeln('max=',max);
<span>end.</span>
256 цветов кодируются 8 битами (что равно 1 байту), т.к. 2^8=256 и в 1 байте 8 бит. Т.е. на каждый пиксель изображения нужен 1 байт видеопамяти. Итого:
800*600*1=480000 байт на 1 кадр. Всего у нас 16 кадров в секунду, а весь ролик длится 1 минуту=60 сек.
Итого 480000*16*60=460800000 байт = 460800000/1024/1024 мегабайт = 439,453125 мегабайт.
1. Зрительная, числа
2. Зрительная, графика
3. Слуховая, звук
4. Зрительная, текст
5. Слуховая, видео
