Var
n,k,sum:integer; s,s1:string;
begin
write('n = '); readln(n);
s:='';
sum:=0;
while (n>0)and(n mod 2 = 0) do
begin
k:=n mod 10;
str(k,s1);
s:=s1+'+'+s;
sum:=sum+k;
n:=n div 10;
end;
if s<>'' then s[length(s)]:='=';
writeln(s,sum);
end.
Пример:
n = 1784
8+4=12
Антивирус(Avast,Kasperskiy,Dr.Web)
А - планшет
Б - телефон
В - ноутбук
Буквы - а, т, н, о; слово - нота (рисунок 4)
I=k*i
I=128*128*5=81920 бит=81,92 килобит=10,24 килобайт.
Вирус А: 1/1 = 1 Гб/ мес
Вирус B: 1/2 = 0,5 Гб/мес
Вирус С: 1/3 Гб/мес
Вирус D: 1/6 Гб/мес
<span>Все 4 за мес: 6/6 + 3/6 + 2/6 + 1/6 = 12/6 = 2 Гб памяти они займут за 1 мес.</span>