A)Antivirus Kaspersky
B)В случае скачивание из интернета игру но это не игра а вирус, тем самым вирус остаётся в компьютере.
C)Возможности Анти-Вирусов много например: Анти-Вирус может обнаружить вирус который был загружен на ваш пк и обезвредить угрозу, блокировать браузерные рекламы (спам) и.т.д
Var a,b,c:integer; l:boolean;
begin
writeln('a, b, c:');
readln(a,b,c);
l:=(a=-b)or(a=-c)or(b=-c);
if l then writeln('Yes') else writeln('No');
end.
Пример:
<span>a, b, c:
5 8 -5
Yes</span>
запусти несколько бесконечных циклов, и комп 100% висанет
Формула будет b1+c1. Значение будет равно 11
Var
n,i,k: integer;
a: array [1..10] of integer;
begin
for i:=1 to 10 do
begin
read (a[i]);
if a[i]=1 then n:=n+1;
end;
writeln ('edinice=',n,' elements');
end.