// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
begin
var a:array[1..6,1..6] of integer;
for var i:=1 to 6 do begin
for var j:=1 to 6 do begin
a[i,j]:=10*i+j;
Write(a[i,j],' ')
end;
Writeln
end
end.
<u><em>Результат:</em></u>
11 12 13 14 15 16
21 22 23 24 25 26
31 32 33 34 35 36
41 42 43 44 45 46
51 52 53 54 55 56
61 62 63 64 65 66
Пусть объем гигабайт, который вирусы заполнят за один месяц, работая вместе, равен X. За месяц вирусы A, B, C, D смогут заполнить
гигабайт соответственно (надеюсь, понятно почему). Следовательно, имеем простое уравнение:
Ответ: 2 гигабайта
<em>// PascalABC.NET 3.3, сборка 1547 от 07.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
function InArea(p:(real,real)):boolean;
begin
var (x,y):=p;
Result:=(Abs(x)<=1) and (Abs(y)<=1) or
(y>=x-2) and (x>=0) and (y<=0)
end;
begin
var n:=ReadInteger('n=');
Randomize;
var P:=ArrGen(n,i->(Random(-11,22)/10,Random(-22,12)/10));
Writeln('Исходные точки (x,y)'); P.Println;
var R:=P.Where(x->InArea(x)).ToArray;
Writeln('Отобрано точек - ',R.Length);
Writeln('Отобранные точки (x,y)'); R.Println
end.
<u>Пример</u>
n= 20
Исходные точки (x,y)
(0,0.6) (1.1,1.1) (-0.9,0.3) (-0.7,-0.3) (1.3,-1.7) (-1,-1.6) (1.6,-1.5) (1.3,-0.2) (0.5,-0.7) (-0.7,-1.5) (1,-1.2) (1.9,0.6) (0.7,0.9) (1.3,-0.5) (1.6,0.4) (-0.8,0.2) (0.5,-1.8) (1.5,-1.1) (-0.6,-0.1) (0.9,0.1)
Отобрано точек - 10
Отобранные точки (x,y)
(0,0.6) (-0.9,0.3) (-0.7,-0.3) (1.3,-0.2) (0.5,-0.7) (0.7,0.9) (1.3,-0.5) (-0.8,0.2) (-0.6,-0.1) (0.9,0.1)
1 символ = 8 бит, включая пробелы и знаки препинания.
Василий сьел 6 конфет, из них 2 было барбариски.
Ответ: 48 символов * 8 бит = 384 бита
Мышь, клава, микрофон, вебка, джойстик, сканер (если это он в нижнем правом углу)
