Var num, deg: integer;res: real;i: byte;begin write('Число: '); readln(num); deg:=6; res := 1; i := 0; while i < abs(deg) do begin res := res * num; i := i + 1 end; if deg < 0 then res := 1 / res; writeln(res); readlnend.

0 0

4 года назад

Типы антивирусных программ.Меры защиты информации от компьютерных вирусов.

gbg71

Kaspersky Antivirus, Norton AntiVirus, Doctor Web.
Своевременное обнаружение зараженных вирусами файлов и дисков, полное уничтожение обнаруженных вирусов на каждом компьютере позволяют избежать распространения вирусной эпидемии на другие компьютеры.
Для обнаружения, удаления и защиты от компьютерных вирусов разработано несколько видов специальных программ, которые позволяют обнаруживать и уничтожать вирусы. Такие программы называются антивирусными. Различают следующие виды антивирусных программ

0 0

4 года назад

Помогите решить 21 и 22 задание

света притыцкая

21:
224 бита×5 символов=1120 битов=140 байт
22:
2 байта×176 бит=352 байта=2816 бит

0 0

4 года назад

ПОМОГИТЕ,ПОЖАЛУЙСТА,СРОЧНО НУЖНО!!! Задача по Паскалю: Задать одномерный массив из 10 чисел, которые полученные случайным образо

Andatras

Program n1;
var a: array[1..10] of integer;
i: integer;
begin
randomize;
for i:=1 to 10 do
begin
a[i]:=random(20);
if a[i] mod 2<>0 then write(a[i],' ');
end;
end.

0 0

2 года назад