Обычно - Вирусы не Заражают Комп. Обычных Людей. Обычно Заражаются Комп. в Офисах - Где есть какая - Либо Важная Информация.
Когда Анти-Вирус видит сам Вирус, он издаёт Звук и Говорит Голос - "Вирусная Угроза Была Обнаружена".
Также Исчезают Папки, Файлы и Деньги.
Но бывает также Вирусы, взламывают другие Комп; Телефоны, Планшеты и т.д. Ради Денег. - Высвечивается Надпись что бы приманить Хозяина любого устройства в том числе и комп.
Даже в самых Обычных Онлайн Игр Игровая Валюта - Румбы, Алмазы и Деньги (Игровые) - Могут стоить настоящие Деньги. Тогда Списывают с вашего счёта БЕЗ СПРОСА. Например: - 100 Руб. ; - 82 Руб. и т.д. (Я к примеру).
Или же при взломе На Комп. вместо Букв и Цифр - появляются Странные Символы - #"^^^*** и т.д.
program Vozrasr;
var
AGE: integer;//Переменная возраста
begin
writeln('Введите любое число от 1 до 120');
Readln(AGE); //Ввод возраста
if (AGE < 1) or (AGE > 120) then
begin
writeln('ERROR!')
end
else
begin
case AGE of //для чисел от 11 до 20 создаем отд-ый кейс
11..20: Writeln('ответ: Мне ', AGE, ' лет');
Else //иначе если они не входят в диапазон от [11..20], то выполняется второй кейс
begin
case AGE mod 10 of //делим на 10 и получаем остаток =
1: Writeln('ответ: Мне ', AGE, ' год');
2..4: Writeln('ответ: Мне ', AGE, ' года');
0, 5..9: Writeln('ответ: Мне ', AGE, ' лет');
end;
end;
end;
end;
end.
var a:STRING;
i,n,j,k,x,z,y:integer; d:boolean;
begin
readln(n);
read(a);
d:=false;
if (n=1)and (a='8') then d:=true;
if n=2 then begin
x:=ord(a[1]) - 48;
y:=ord(a[2]) - 48;
if((x*10+y) mod 8=0) or
((y*10+x) mod 8=0) then d:=true;
end
else
begin
for i:=1 to N-2 do
for j:=i+1 to N-1 do
for k:=i+2 to N do
begin
x:=ord(a[i])-48;
y:=ord(a[j])-48;
z:=ord(a[k])-48;
if((x*4+y*2+z) mod 8=0) or
((y*4+x*2+z) mod 8=0) or
((y*4+z*2+x) mod 8=0) or
((x*4+z*2+y) mod 8=0) or
((z*4+y*2+x) mod 8=0) or
((z*4+x*2+y) mod 8=0) then d:=true;
end; end;
if d then write('YES') else write('NO');
end.