//Ответ: 133.
//PascalABC.NET
var
i: integer;
begin
i := 0;
while(true) do
begin
if((i mod 7 = 0) and (i mod 3 <> 0) and (i mod 10 = 3)) then break;
i := i + 1;
end;
write(i);
<span>end.</span>
INPUT "a="; a
INPUT "b="; b
INPUT "c="; c
IF a = b AND a = c AND b = c THEN
PRINT "РАВНЫ"
ELSE
PRINT "НЕ РАВНЫ"
END IF
<span>END</span>
Треугольников 40
и 10 квадратов
<span>1/512 Мбайт=2 кбайт=2048*8 бит
</span>2048*8/4096=4 бит/символ
N=2^I=2^4=16 -мощность