Забирай картинку, только фоткай лучше!
Если считается, что заражются все и начал один, то остается вопрос - а адреса входят в обе стороны или нет то есть
1 кампьютер заразил 10 компов,
Каждый из этих 10 компов отослал письма другим 10, то
<em> </em><em>Будет поражено (10000)</em>
Ответ:
<em> в форме знаков и сигналов</em>
Объяснение:
Var
n: array[1..12] of integer;
i: integer;
begin
for i:=1 to 12 do
begin
n[i]:=random(31)-20;
writeln('n[', i, '] = ', n[i]);
end;
for i:=1 to 12 do
if n[i]<0 then write(i, ' ');
<span>end.</span>
Var s:string;
k,i:integer;
begin
writeln('vvedite slovo');
readln(s);
for i := 1 to length(s) do
if (s[i]='y') and (i mod 2=0)
then inc(k);
writeln ('k=',k);
readln ;
<span>end.</span>